From: "Robin Barker" <Robin.Barker@npl.co.uk>

Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939C3@exchsvr2.npl.ad.local>

More consting.

p4raw-id: //depot/perl@32947

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 867d35b..3092934 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -386,7 +386,7 @@ unsigned long strtoul (const char *, char **, int);
 #endif
 
 static int
-not_here(char *s)
+not_here(const char *s)
 {
     croak("POSIX::%s not implemented on this architecture", s);
     return -1;
@@ -1662,7 +1662,7 @@ strtol(str, base = 0)
 
 void
 strtoul(str, base = 0)
-       char *          str
+       const char *    str
        int             base
     PREINIT:
        unsigned long num;