From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 1 Feb 2006 22:03:37 +0000 (+0000)
Subject: Oops. 1 NUL termination assumption remains in Perl_gv_fetchpvn_flags
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad6bfa9d0ae142db0b494810d12ba03c60e2ebbe;p=p5sagit%2Fp5-mst-13.2.git

Oops. 1 NUL termination assumption remains in Perl_gv_fetchpvn_flags

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

diff --git a/gv.c b/gv.c
index f60d0dc..5b75c03 100644
--- a/gv.c
+++ b/gv.c
@@ -816,7 +816,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		name_cursor++;
 	    name_cursor++;
 	    name = name_cursor;
-	    if (!*name)
+	    if (name == name_end)
 		return gv ? gv : (GV*)*hv_fetchs(PL_defstash, "main::", TRUE);
 	}
     }