From: Robin Barker <RMBarker@cpan.org>
Date: Sat, 22 Dec 2007 00:47:51 +0000 (+0000)
Subject: consting Compress::Raw::Zlib and Filter::Util::Call
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92905b42ad1ca082d0ec8476b85c67f306c4bba3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);