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 (file)
--- 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];