diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-07 03:10:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-07 03:10:36 +0000 |
| commit | fe0658f9c9ddf9bb43372ebf55904f2e281b024d (patch) | |
| tree | 6fe1ff55f0a7693160fd715626ca212abe2e87a4 | |
| parent | d11915b82a23265566d9643e95935294732103a8 (diff) | |
| download | perl-fe0658f9c9ddf9bb43372ebf55904f2e281b024d.tar.gz | |
Continuing mopup for #6204.
p4raw-id: //depot/cfgperl@6212
| -rw-r--r-- | ext/B/defsubs_h.PL | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 80ef936fce..b793be2155 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -7,9 +7,12 @@ $out =~ s/_h$/.h/; open(OUT,">$out") || die "Cannot open $file:$!"; print "Extracting $out...\n"; foreach my $const (qw(AVf_REAL - HEf_SVKEY - SVf_IOK SVf_IVisUV SVf_NOK SVf_POK - SVf_ROK SVp_IOK SVp_POK )) + HEf_SVKEY SVphv_SHAREKEYS + SVf_READONLY + GVf_IMPORTED_AV GVf_IMPORTED_HV + GVf_IMPORTED_SV GVf_IMPORTED_CV + SVf_IOK SVf_IVisUV SVf_NOK SVf_POK + SVf_ROK SVp_IOK SVp_POK SVp_NOK)) { doconst($const); } |