diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 1999-10-04 09:05:08 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-04 17:03:18 +0000 |
| commit | d790c045735c0bdbf37ccd2827e8fc572aaeae88 (patch) | |
| tree | 9bea73d1ee681be1b5479723e0b268a4df7eb082 /ext | |
| parent | ae9a5a847a09b4c18f5fbd105f44565c8d01a3b2 (diff) | |
| download | perl-d790c045735c0bdbf37ccd2827e8fc572aaeae88.tar.gz | |
Re: [ID 19991001.005] [_61] [PATCH] tarball fine on win32, zip isn't
To: Jarkko Hietaniemi <jhi@iki.fi>
cc: Perl Porters <perl5-porters@perl.org>, jhi@cc.hut.fi
Message-ID: <Pine.SOL.4.10.9910041302550.6502-100000@maxwell.phys.lafayette.edu>
p4raw-id: //depot/cfgperl@4300
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs_h.PL | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 78c82f20bd..dc4275beae 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -3,7 +3,6 @@ # Extracting defsubs.h (with variable substitutions) #!perl my ($out) = __FILE__ =~ /(^.*)\.PL/; -if ($^O eq 'VMS') { ($out) = __FILE__ =~ /^(.+)_PL$/i; } $out =~ s/_h$/.h/; open(OUT,">$out") || die "Cannot open $file:$!"; print "Extracting $out...\n"; |