$out =~ s/_h$/.h/;
open(OUT,">$out") || die "Cannot open $file:$!";
print "Extracting $out...\n";
+print OUT <<"END";
+/*
+ !!! Don't modify this file - it's autogenerated from $0 !!!
+ */
+END
+
foreach my $const (qw(
AVf_REAL
HEf_SVKEY
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 SVp_NOK
+ CVf_CLONE CVf_CLONED CVf_ANON CVf_OLDSTYLE
+ CVf_UNIQUE CVf_NODEBUG CVf_METHOD CVf_LOCKED
+ CVf_LVALUE CVf_CONST CVf_WEAKOUTSIDE CVf_ASSERTION
+ SVpad_OUR SVf_FAKE SVf_IOK SVf_IVisUV SVf_NOK SVf_POK
+ SVf_ROK SVp_IOK SVp_POK SVp_NOK SVt_PVGV SVt_PVHV SVs_RMG
))
{
doconst($const);