Change 24752: One more SvPV_const

[Nicholas Clark]

Change 24752 by [EMAIL PROTECTED] on 2005/06/08 09:09:52

        One more SvPV_const

Affected files ...

... //depot/perl/pp.c#465 edit

Differences ...

==== //depot/perl/pp.c#465 (text) ====
Index: perl/pp.c
--- perl/pp.c#464~24744~        Tue Jun  7 15:22:34 2005
+++ perl/pp.c   Wed Jun  8 02:09:52 2005
@@ -2358,7 +2358,7 @@
            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);
End of Patch.