X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=minimod.pl;h=39f976395fb7075f0fc82af9f24762b559ac8f47;hb=c053b435c0eae6a81e9a54598b068d7be84d74cc;hp=18b9c0748cf7536bce9574dd920b64c0c0342459;hpb=0e06870bf080a38cda51c06c6612359afc2334e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/minimod.pl b/minimod.pl
index 18b9c07..39f9763 100644
--- a/minimod.pl
+++ b/minimod.pl
@@ -65,7 +65,7 @@ sub writemain{
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
     print $tail1;
 
-    print "\tchar *file = __FILE__;\n";
+    print "\tconst char file[] = __FILE__;\n";
     print "\tdXSUB_SYS;\n" if $] > 5.002;
 
     foreach $_ (@exts){