Change 54d012c665eb635f1e4fac1f1ec5aba1229ad9ca was only tested threaded. Oops.
authorNicholas Clark <nick@ccl4.org>
Wed, 21 Jan 2009 12:18:29 +0000 (12:18 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 21 Jan 2009 12:18:29 +0000 (12:18 +0000)
op.c

diff --git a/op.c b/op.c
index 444ee3b..e32cbdb 100644 (file)
--- 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;