From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 10 Aug 2006 09:46:34 +0000 (+0000)
Subject: lstat on *GLOB{IO} with warnings on would segfault
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38ddb0ef3c43048c9fb5a4c40493be5d413b269e;p=p5sagit%2Fp5-mst-13.2.git

lstat on *GLOB{IO} with warnings on would segfault
(noticed by Andrew Dougherty)

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

diff --git a/pp_sys.c b/pp_sys.c
index a7c9414..909f5f7 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2798,7 +2798,7 @@ PP(pp_stat)
 	    do_fstat_warning_check:
 		if (ckWARN(WARN_IO))
 		    Perl_warner(aTHX_ packWARN(WARN_IO),
-			"lstat() on filehandle %s", GvENAME(gv));
+			"lstat() on filehandle %s", gv ? GvENAME(gv) : "");
 	    } else if (PL_laststype != OP_LSTAT)
 		Perl_croak(aTHX_ "The stat preceding lstat() wasn't an lstat");
 	}