diff options
| author | Alex Vandiver <alexmv@mit.edu> | 2003-05-02 02:45:05 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-12 21:49:21 +0000 |
| commit | e27ad1f20b87bf08f3461d0be498f8d4da22a576 (patch) | |
| tree | c42d11b1dcf1a112af0ecb9f209acb0f8b67e145 /pp.c | |
| parent | f9738a7f833dee4b6953b05d93d3f222f78be370 (diff) | |
| download | perl-e27ad1f20b87bf08f3461d0be498f8d4da22a576.tar.gz | |
Re: Bug stomping fun. [PATCH: bug #1016]
Message-Id: <1051872303.26203.104.camel@supox>
(plus perldiag nit)
p4raw-id: //depot/perl@19505
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -595,7 +595,10 @@ PP(pp_gelem) break; case 'P': if (strEQ(elem, "PACKAGE")) - sv = newSVpv(HvNAME(GvSTASH(gv)), 0); + if (HvNAME(GvSTASH(gv))) + sv = newSVpv(HvNAME(GvSTASH(gv)), 0); + else + sv = newSVpv("__ANON__",0); break; case 'S': if (strEQ(elem, "SCALAR")) |