From f05ddbb84c8a4ed2946b342346f3db3e986bcb33 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 21 Dec 2007 16:31:45 +0000
Subject: Clean up a warning with -Wwrite-strings that gets passed into every
 parsed XS file.

p4raw-id: //depot/perl@32691
---
 lib/ExtUtils/ParseXS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm
index 221d5a43b8..e7e6aadbdf 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");
-- 
cgit v1.2.1