oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

make it work with perl4

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cf/make-proto.pl
View File

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