diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-03-17 20:04:31 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 10:30:51 +0000 |
| commit | 918c0b2d7bc71242c4810571f6971cac26c1327c (patch) | |
| tree | c244a3d5d86c2cf948ab297e79353a815e62dcf6 /ext/B | |
| parent | fa08c05b640ede69b33d2ae5b23634d6e5b0865c (diff) | |
| download | perl-918c0b2d7bc71242c4810571f6971cac26c1327c.tar.gz | |
applied suggested patch, modulo superseded parts
Message-id: <01J8YF0EOWLU001E7S@mail.newman.upenn.edu>
Subject: [PATCH 5.005_56] Miscellaneous small fixes
p4raw-id: //depot/perl@3152
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/defsubs.h.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/defsubs.h.PL b/ext/B/defsubs.h.PL index e485ac3300..c24eb94170 100644 --- a/ext/B/defsubs.h.PL +++ b/ext/B/defsubs.h.PL @@ -1,7 +1,11 @@ +# Do not remove the following line; MakeMaker relies on it to identify +# this file as a template for defsubs.h +# Extracting defsubs.h (with variable substitutions) #!perl my ($out) = __FILE__ =~ /(^.*)[._]PL/i; if ($^O eq 'VMS') { $out =~ s/(^.*)[._](.*$)/$1.$2/;} open(OUT,">$out") || die "Cannot open $file:$!"; +print "Extracting $out . . .\n"; foreach my $const (qw(AVf_REAL HEf_SVKEY SVf_IOK SVf_NOK SVf_POK SVf_ROK SVp_IOK SVp_POK )) |