now it should actually work with perl4

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@4451 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Assar Westerlund
1998-02-26 01:19:43 +00:00
parent 16e89e5d3d
commit d21d2a3c9c

View File

@@ -25,7 +25,7 @@ while(<>) {
if($line =~ /\)\s$/){
$_ = $line;
while(s/\*\//\ca/){
s/\/\*.*\ca//s;
s/\/\*(.|\n)*\ca//;
}
s/^\s*//;
s/\s$//;