-# minimod.PL writes the contents of miniperlmain.c into the module
+#./miniperl -w
+# minimod.pl writes the contents of miniperlmain.c into the module
# ExtUtils::Miniperl for later perusal (when the perl source is
# deleted)
#
#
# Version 1.0, Feb 2nd 1995 by Andreas Koenig
+BEGIN { unshift @INC, "lib" }
+
+use strict;
+
print <<'END';
# This File keeps the contents of miniperlmain.c.
#
END
while (<MINI>) {
- print;
+ print unless /dXSUB_SYS/;
}
close MINI;
my($mname, $cname);
($mname = $pname) =~ s!/!::!g;
($cname = $pname) =~ s!/!__!g;
- print "EXTERN_C void boot_${cname} _((CV* cv));\n";
+ print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
}
my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
print $tail1;
- print " char *file = __FILE__;\n";
+ print "\tconst char file[] = __FILE__;\n";
+ print "\tdXSUB_SYS;\n" if $] > 5.002;
+
foreach $_ (@exts){
my($pname) = canon('/', $_);
my($mname, $cname, $ccode);