Change 32691 by [EMAIL PROTECTED] on 2007/12/21 16:31:45
Clean up a warning with -Wwrite-strings that gets passed into every
parsed XS file.
Affected files ...
... //depot/perl/lib/ExtUtils/ParseXS.pm#24 edit
Differences ...
==== //depot/perl/lib/ExtUtils/ParseXS.pm#24 (text) ====
Index: perl/lib/ExtUtils/ParseXS.pm
--- perl/lib/ExtUtils/ParseXS.pm#23~32223~ 2007-11-05 04:51:39.000000000
-0800
+++ perl/lib/ExtUtils/ParseXS.pm 2007-12-21 08:31:45.000000000 -0800
@@ -940,7 +940,7 @@
#-Wall: if there is no $Full_func_name there are no xsubs in this .xs
#so `file' is unused
print Q(<<"EOF") if $Full_func_name;
-# char* file = __FILE__;
+# const char* file = __FILE__;
EOF
print Q("#\n");
End of Patch.
