From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 09:09:52 +0000 (+0000)
Subject: One more SvPV_const
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f46942a96d669ad911580516a4c630bf04865ca;p=p5sagit%2Fp5-mst-13.2.git

One more SvPV_const

p4raw-id: //depot/perl@24752
---

diff --git a/pp.c b/pp.c
index 8c50719..4feb59d 100644
--- a/pp.c
+++ b/pp.c
@@ -2358,7 +2358,7 @@ PP(pp_negate)
 	    SETn(-SvNV(sv));
 	else if (SvPOKp(sv)) {
 	    STRLEN len;
-	    char *s = SvPV(sv, len);
+	    const char *s = SvPV_const(sv, len);
 	    if (isIDFIRST(*s)) {
 		sv_setpvn(TARG, "-", 1);
 		sv_catsv(TARG, sv);