make it work with perl4

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@3652 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Assar Westerlund
1997-10-20 09:22:26 +00:00
parent 36a70e4af6
commit a35b84e273

View File

@@ -24,8 +24,8 @@ while(<>) {
if(/\{/){
if($line =~ /\)\s$/){
$_ = $line;
while(s/\*\//\ca/){
s/\/\*.*\ca//s;
while(s/\*\//\001/){
s/\/\*.*\001//s;
}
s/^\s*//;
s/\s$//;