From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Jan 2009 12:18:29 +0000 (+0000)
Subject: Change 54d012c665eb635f1e4fac1f1ec5aba1229ad9ca was only tested threaded. Oops.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=def18e4c9fd5eb589bbb50de256bb350e973ea47;p=p5sagit%2Fp5-mst-13.2.git

Change 54d012c665eb635f1e4fac1f1ec5aba1229ad9ca was only tested threaded. Oops.
---

diff --git a/op.c b/op.c
index 444ee3b..e32cbdb 100644
--- a/op.c
+++ b/op.c
@@ -5962,7 +5962,7 @@ Perl_newCONSTSUB(pTHX_ HV *stash, const char *name, SV *sv)
     const char *const file = CopFILE(PL_curcop);
 #else
     SV *const temp_sv = CopFILESV(PL_curcop);
-    const char *const file = temp_sv ? SvPV_const_nolen(temp_sv) : NULL;
+    const char *const file = temp_sv ? SvPV_nolen_const(temp_sv) : NULL;
 #endif
 
     ENTER;