From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 19 Apr 2006 11:20:08 +0000 (+0000)
Subject: newCONSTSUB needs to be robust in case CopFILE is NULL.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07fcac018384bd37bd2822ab8745344861c7c3df;p=p5sagit%2Fp5-mst-13.2.git

newCONSTSUB needs to be robust in case CopFILE is NULL.

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

diff --git a/op.c b/op.c
index 8efe3b2..ec4cb3a 100644
--- a/op.c
+++ b/op.c
@@ -5399,13 +5399,13 @@ Perl_newCONSTSUB(pTHX_ HV *stash, const char *name, SV *sv)
     CV* cv;
 #ifdef USE_ITHREADS
     const char *const temp_p = CopFILE(PL_curcop);
-    const STRLEN len = strlen(temp_p);
+    const STRLEN len = temp_p ? strlen(temp_p) : 0;
 #else
     SV *const temp_sv = CopFILESV(PL_curcop);
     STRLEN len;
     const char *const temp_p = temp_sv ? SvPV_const(temp_sv, len) : NULL;
 #endif
-    char *const file = temp_p ? savepvn(temp_p, len) : NULL;
+    char *const file = savepvn(temp_p, temp_p ? len : 0);
 
     ENTER;