diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
| commit | f5f7a0b482a96221fe45c96ca998d928c8ea7eff (patch) | |
| tree | 3b31f97fa52e2b424a5ad64b9c52a42de51854a5 /ext | |
| parent | bf49b057b09bec860588a9b554c3a77683394722 (diff) | |
| parent | 30382c73ff93b57b951492a5a0d1cba2de577e49 (diff) | |
| download | perl-f5f7a0b482a96221fe45c96ca998d928c8ea7eff.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@4303
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"; |