diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-24 11:39:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-24 11:39:42 +0000 |
| commit | 328826784b2a898fc3c4e57c47657410cb6f5559 (patch) | |
| tree | 579d3068013bc92076ba6262b6d89a2152bf8800 /ext/B | |
| parent | ac54365a76b156fbb7a713acb8c8ebb0b8880b1b (diff) | |
| download | perl-328826784b2a898fc3c4e57c47657410cb6f5559.tar.gz | |
VMS tweak (suggested by Craig A. Berry <craig.berry@metamor.com>)
p4raw-id: //depot/perl@4435
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/defsubs_h.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index dc4275beae..80ef936fce 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -2,7 +2,7 @@ # this file as a template for defsubs.h # Extracting defsubs.h (with variable substitutions) #!perl -my ($out) = __FILE__ =~ /(^.*)\.PL/; +my ($out) = __FILE__ =~ /(^.*)\.PL/i; $out =~ s/_h$/.h/; open(OUT,">$out") || die "Cannot open $file:$!"; print "Extracting $out...\n"; |