From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 24 Oct 1999 11:39:42 +0000 (+0000)
Subject: VMS tweak (suggested by Craig A. Berry <craig.berry@metamor.com>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=328826784b2a898fc3c4e57c47657410cb6f5559;p=p5sagit%2Fp5-mst-13.2.git

VMS tweak (suggested by Craig A. Berry <craig.berry@metamor.com>)

p4raw-id: //depot/perl@4435
---

diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL
index dc4275b..80ef936 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";