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:
@@ -25,7 +25,7 @@ while(<>) {
|
||||
if($line =~ /\)\s$/){
|
||||
$_ = $line;
|
||||
while(s/\*\//\ca/){
|
||||
s/\/\*.*\ca//s;
|
||||
s/\/\*(.|\n)*\ca//;
|
||||
}
|
||||
s/^\s*//;
|
||||
s/\s$//;
|
||||
|
Reference in New Issue
Block a user