diff options
Diffstat (limited to 'minimod.pl')
| -rw-r--r-- | minimod.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/minimod.pl b/minimod.pl index fea77c0ef7..bd945c25d4 100644 --- a/minimod.pl +++ b/minimod.pl @@ -67,11 +67,12 @@ sub writemain{ print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n"; } - my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s ); - print $tail1; + my ($tail1,$tail2,$tail3) = ( $tail =~ /\A(.*{\s*\n)(.*\n)(\s*\}.*)\Z/s ); + print $tail1; print "\tconst char file[] = __FILE__;\n"; print "\tdXSUB_SYS;\n" if $] > 5.002; + print $tail2; foreach $_ (@exts){ my($pname) = canon('/', $_); @@ -91,7 +92,7 @@ sub writemain{ } print "\t}\n"; } - print $tail2; + print $tail3; } sub canon{ |