consting IO.xs

From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939A1@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@32978

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index eac8a64..c81cb93 100644 (file)
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -205,7 +205,7 @@ MODULE = IO PACKAGE = IO::File      PREFIX = f
 
 void
 new_tmpfile(packname = "IO::File")
-    char *     packname
+    const char * packname
     PREINIT:
        OutputStream fp;
        GV *gv;