diff options
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); } |