From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 9 Aug 2007 14:56:19 +0000 (+0200)
Subject: Re: INC handlers and shutdown-time warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=089d5d592af05e188741d15eb055de559f1bf619;p=p5sagit%2Fp5-mst-13.2.git

Re: INC handlers and shutdown-time warnings
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0708090556k68768897yb8ccc1c0dd2ce714@mail.gmail.com>

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 3d0c1d1..a09d44e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3307,7 +3307,7 @@ PP(pp_require)
 			|| (*name == ':' && name[1] != ':' && strchr(name+2, ':'))
 #endif
 		  ) {
-		    const char *dir = SvPV_nolen_const(dirsv);
+		    const char *dir = SvOK(dirsv) ? SvPV_nolen_const(dirsv) : "";
 #ifdef MACOS_TRADITIONAL
 		    char buf1[256];
 		    char buf2[256];