diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 13:36:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 13:36:44 +0000 |
| commit | 059a8bb71dff4eb7a6ca47bbe766a3e1c7c58020 (patch) | |
| tree | 9d22fbfcafc8c55cc7133507c464803748550696 /ext/B/defsubs_h.PL | |
| parent | 10d9c778f985d5d6d434ffb325e0b7b1d8369cb5 (diff) | |
| download | perl-059a8bb71dff4eb7a6ca47bbe766a3e1c7c58020.tar.gz | |
Bytecompiler patches from Benjamin Stuhl.
p4raw-id: //depot/perl@6763
Diffstat (limited to 'ext/B/defsubs_h.PL')
| -rw-r--r-- | ext/B/defsubs_h.PL | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 759013bbcc..800bb2ca7d 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -6,11 +6,16 @@ my ($out) = __FILE__ =~ /(^.*)\.PL/i; $out =~ s/_h$/.h/; open(OUT,">$out") || die "Cannot open $file:$!"; print "Extracting $out...\n"; -foreach my $const (qw(AVf_REAL +foreach my $const (qw( + AVf_REAL HEf_SVKEY - CVf_METHOD CVf_LOCKED CVf_LVALUE + SVf_READONLY SVTYPEMASK + GVf_IMPORTED_AV GVf_IMPORTED_HV + GVf_IMPORTED_SV GVf_IMPORTED_CV + CVf_METHOD CVf_LOCKED CVf_LVALUE SVf_IOK SVf_IVisUV SVf_NOK SVf_POK - SVf_ROK SVp_IOK SVp_POK )) + SVf_ROK SVp_IOK SVp_POK SVp_NOK + )) { doconst($const); } |