diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-24 14:36:09 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-24 14:36:09 +0000 |
| commit | 5b411029755fe810157205c2903f1053046aff30 (patch) | |
| tree | 77a2a30c7adb079ba6ae508962bc2f93528abf4f /vms/gen_shrfls.pl | |
| parent | ea0efc06fdad2019ffceb86d079dd853e9d79cea (diff) | |
| download | perl-5b411029755fe810157205c2903f1053046aff30.tar.gz | |
Patches for VMS [Dan Sugalski]
p4raw-id: //depot/perl@173
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index e451e1826b..5767c5f73f 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -150,6 +150,7 @@ sub scan_var { $line =~ s/\[.*//; $line =~ s/=.*//; $line =~ s/\W*;?\s*$//; + $line =~ s/\(void//; print "\tfiltered to \\$line\\\n" if $debug > 1; if ($line =~ /(\w+)$/) { print "\tvar name is \\$1\\" . ($const ? ' (const)' : '') . "\n" if $debug > 1; |