diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-07 03:16:00 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 03:16:00 +0000 |
| commit | 740ce14cd863bb8986a54f425a6f1ec20b26c6cc (patch) | |
| tree | e25f5b48ba535ed07ec57bf13ed1c50973dbacd1 /vms/gen_shrfls.pl | |
| parent | c43cd16b2d0254cdf3b775a546b5a6986ff4b90a (diff) | |
| download | perl-740ce14cd863bb8986a54f425a6f1ec20b26c6cc.tar.gz | |
VMS 5.003_05 Update.
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 6972c67edf..8753893b8d 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -222,10 +222,10 @@ close CPP; # Kluge to determine whether we need to add EMBED prefix to -# symbols read from local list. init_os_extras() is a VMS- +# symbols read from local list. vmsreaddirversions() is a VMS- # specific function whose Perl_ prefix is added in vmsish.h # if EMBED is #defined. -$embed = exists($fcns{'Perl_init_os_extras'}) ? 'Perl_' : ''; +$embed = exists($fcns{'Perl_vmsreaddirversions'}) ? 'Perl_' : ''; while (<DATA>) { next if /^#/; s/\s+#.*\n//; |