diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-09-26 18:56:28 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 22:44:35 +0000 |
| commit | 16920d4e7955f05583cb8e0e238058b2a6125125 (patch) | |
| tree | 69e3127affc77f9722ee58bbab6493c028052888 /gv.c | |
| parent | d333a2173e786c391c48ee4f5f7df078b91e90b1 (diff) | |
| download | perl-16920d4e7955f05583cb8e0e238058b2a6125125.tar.gz | |
make __ANON__ global
Message-Id: <200109261656.RAA27762@tempest.npl.co.uk>
p4raw-id: //depot/perl@12251
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -656,7 +656,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) strEQ(name, "ARGVOUT"))) global = TRUE; } - else if (*name == '_' && !name[1]) + else if (*name == '_' && (!name[1] || strEQ(name,"__ANON__"))) global = TRUE; if (global) |