This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: INC handlers and shutdown-time warnings
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 9 Aug 2007 14:56:19 +0000 (16:56 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 1 Sep 2007 07:34:42 +0000 (07:34 +0000)
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0708090556k68768897yb8ccc1c0dd2ce714@mail.gmail.com>

p4raw-id: //depot/perl@31778

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
                  ) {
                        || (*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];
 #ifdef MACOS_TRADITIONAL
                    char buf1[256];
                    char buf2[256];