summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-02-27 17:50:09 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-02-27 17:50:09 +0000
commitc99da3702f996b1fc1415a829383240bdf2f0fd2 (patch)
tree52f3b6e218561a59d3bcd9eb7fcc0bf35304582f /gv.c
parent732319c68d6251d786fd16eefa858e3d18632820 (diff)
downloadperl-c99da3702f996b1fc1415a829383240bdf2f0fd2.tar.gz
Repatch from Robin Barker: anon subs in C<package;> are
now __ANON__::__ANON__ (should help for mod_perl breakage since #12251) p4raw-id: //depot/perl@14899
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index a67b36f786..08a103c997 100644
--- a/gv.c
+++ b/gv.c
@@ -662,7 +662,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
strEQ(name, "ARGVOUT")))
global = TRUE;
}
- else if (*name == '_' && (!name[1] || strEQ(name,"__ANON__")))
+ else if (*name == '_' && !name[1])
global = TRUE;
if (global)