diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-08 03:23:31 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-08 03:23:31 +0000 |
| commit | 482b294c2001bd1c291b5e70975012f29ac95f24 (patch) | |
| tree | d16a6fd8abf3b5343bcf99fef11459076cd92800 /vms/gen_shrfls.pl | |
| parent | b8440792c4a62245d0033c065af6c1ecb58e6474 (diff) | |
| download | perl-482b294c2001bd1c291b5e70975012f29ac95f24.tar.gz | |
VMS updates.
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index e2f5b287e3..e39b7c2630 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -75,10 +75,10 @@ if ($docc) { else { die "$0: Can't find perl.h\n"; } } else { - ($ccvers,$cpp_file) = ($cc_cmd =~ /^~~(\w+)~~(.*)/); - $isgcc = $ccvers =~ /GCC/ + ($junk,$ccvers,$cpp_file,$cc_cmd) = split(/~~/,$cc_cmd,4); + $isgcc = $cc_cmd =~ /case_hack/i or 0; # for nice debug output - $isvaxc = (!$isgcc && $ccvers =~ /VAXC/) + $isvaxc = (!$isgcc && $cc_cmd !~ /standard=/i) or 0; # again, for nice debug output print "\$isgcc: \\$isgcc\\\n" if $debug; print "\$isvaxc: \\$isvaxc\\\n" if $debug; |