diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-02-01 22:03:37 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-02-01 22:03:37 +0000 |
commit | ad6bfa9d0ae142db0b494810d12ba03c60e2ebbe (patch) | |
tree | 9f9692d7b3f1424fa32c3caaa349369c50ba9140 /gv.c | |
parent | 3169b5731281028307a4d52e7c44fbd8c390ec0d (diff) | |
download | perl-ad6bfa9d0ae142db0b494810d12ba03c60e2ebbe.tar.gz |
Oops. 1 NUL termination assumption remains in Perl_gv_fetchpvn_flags
p4raw-id: //depot/perl@27044
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } } |