X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=minimod.pl;h=82760ee63d0eec24b819e718bc748b56fa27a413;hb=5d5aaa5e70a8a8ab4803cdb506e2096b6e190e80;hp=2300a7f7e00fe511afe0f8048cf91fe984f94fba;hpb=3712091946b37b5feabcc1f630b32639406ad717;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/minimod.pl b/minimod.pl
index 2300a7f..82760ee 100644
--- a/minimod.pl
+++ b/minimod.pl
@@ -40,7 +40,7 @@ $tail=<<'EOF!TAIL';
 END
 
 while (<MINI>) {
-    print;
+    print unless /dXSUB_SYS/;
 }
 close MINI;
 
@@ -65,7 +65,9 @@ sub writemain{
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
     print $tail1;
 
-    print "	char *file = __FILE__;\n";
+    print "\tchar *file = __FILE__;\n";
+    print "\tdXSUB_SYS;\n" if $] > 5.002;
+
     foreach $_ (@exts){
 	my($pname) = canon('/', $_);
 	my($mname, $cname, $ccode);
@@ -101,9 +103,10 @@ sub canon{
 
 1;
 __END__
+
 =head1 NAME
 
-ExtUtils::Miniperl.PL
+ExtUtils::Miniperl, writemain - write the C code for perlmain.c
 
 =head1 SYNOPSIS