diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1999-03-01 08:06:29 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-02 08:22:29 +0000 |
| commit | a12fb9119e8da180ab3c5a7359cb81660e41b805 (patch) | |
| tree | dee179de14c1768ba62dddd30cf81808abd286dd /ext | |
| parent | add94a5806141380fd09a55c646496326315ee82 (diff) | |
| download | perl-a12fb9119e8da180ab3c5a7359cb81660e41b805.tar.gz | |
To: perl5-porters@perl.org, vmsperl@perl.org
Subject: [PATCH5.005_56]Diffs to get 5.005_56 building on VMS
Date: Mon, 01 Mar 1999 16:06:29 -0800
Message-Id: <3.0.6.32.19990301160629.02e09ec0@ous.edu>
From: Dan Sugalski <sugalskd@osshe.edu>
To: perl5-porters@perl.org, vmsperl@perl.org
Subject: [PATCH 5.005_56]vmsish.pm patch
Date: Mon, 01 Mar 1999 20:19:04 -0800
Message-Id: <3.0.6.32.19990301201904.02cff460@ous.edu>
plus Configure regen containing a "solution" to the
crosscompile/multiarch problem.
p4raw-id: //depot/cfgperl@3050
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs.h.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/defsubs.h.PL b/ext/B/defsubs.h.PL index 6253bd23c3..e485ac3300 100644 --- a/ext/B/defsubs.h.PL +++ b/ext/B/defsubs.h.PL @@ -1,5 +1,6 @@ #!perl -my ($out) = __FILE__ =~ /(^.*)\.PL/; +my ($out) = __FILE__ =~ /(^.*)[._]PL/i; +if ($^O eq 'VMS') { $out =~ s/(^.*)[._](.*$)/$1.$2/;} open(OUT,">$out") || die "Cannot open $file:$!"; foreach my $const (qw(AVf_REAL HEf_SVKEY |