2 my ($out) = __FILE__ =~ /(^.*)[._]PL/i;
3 if ($^O eq 'VMS') { $out =~ s/(^.*)[._](.*$)/$1.$2/;}
4 open(OUT,">$out") || die "Cannot open $file:$!";
5 foreach my $const (qw(AVf_REAL
7 SVf_IOK SVf_NOK SVf_POK SVf_ROK SVp_IOK SVp_POK ))
11 foreach my $file (qw(op.h cop.h))
13 open(OPH,"../../$file") || die "Cannot open ../../$file:$!";
16 doconst($1) if (/#define\s+(\w+)\s+([\(\)\|\dx]+)\s*(?:$|\/\*)/);
27 newCONSTSUB(stash,"$sym",newSViv($sym));
28 av_push(export_ok,newSVpv("$sym",$l));