From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 21 Dec 2007 16:31:45 +0000 (+0000)
Subject: Clean up a warning with -Wwrite-strings that gets passed into every
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f05ddbb84c8a4ed2946b342346f3db3e986bcb33;p=p5sagit%2Fp5-mst-13.2.git

Clean up a warning with -Wwrite-strings that gets passed into every
parsed XS file.

p4raw-id: //depot/perl@32691
---

diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm
index 221d5a4..e7e6aad 100644
--- a/lib/ExtUtils/ParseXS.pm
+++ b/lib/ExtUtils/ParseXS.pm
@@ -940,7 +940,7 @@ EOF
   #-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");