consting Compress::Raw::Zlib and Filter::Util::Call

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

p4raw-id: //depot/perl@32864

diff --git a/ext/Compress/Raw/Zlib/Zlib.xs b/ext/Compress/Raw/Zlib/Zlib.xs
index b100f4c..2e27f8e 100644 (file)
--- a/ext/Compress/Raw/Zlib/Zlib.xs
+++ b/ext/Compress/Raw/Zlib/Zlib.xs
@@ -510,7 +510,7 @@ PostInitStream(s, flags, bufsize, windowBits)
 
 static SV* 
 #ifdef CAN_PROTOTYPE
-deRef(SV * sv, char * string)
+deRef(SV * sv, const char * string)
 #else
 deRef(sv, string)
 SV * sv ;
@@ -542,7 +542,7 @@ char * string;
 
 static SV*
 #ifdef CAN_PROTOTYPE
-deRef_l(SV * sv, char * string)
+deRef_l(SV * sv, const char * string)
 #else
 deRef_l(sv, string)
 SV * sv ;

diff --git a/ext/Filter/Util/Call/Call.xs b/ext/Filter/Util/Call/Call.xs
index 7755618..0487bf9 100644 (file)
--- a/ext/Filter/Util/Call/Call.xs
+++ b/ext/Filter/Util/Call/Call.xs
@@ -53,7 +53,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
 {
     dMY_CXT;
     SV   *my_sv = FILTER_DATA(idx);
-    char *nl = "\n";
+    const char *nl = "\n";
     char *p;
     char *out_ptr;
     int n;
@@ -245,7 +245,7 @@ filter_del()
 
 void
 unimport(package="$Package", ...)
-    char *package
+    const char *package
     PPCODE:
     filter_del(filter_call);