diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-23 13:35:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-23 13:35:34 +0000 |
| commit | 9508c957d44b9a653d85a843d414d761b7658938 (patch) | |
| tree | 8d1c827d0663eba9a9da78eac7cc9356747c09b2 /toke.c | |
| parent | b27d06daa636fd86e1cd11a66e74207401300221 (diff) | |
| download | perl-9508c957d44b9a653d85a843d414d761b7658938.tar.gz | |
Fix for bug: [perl #32562] __PACKAGE__ symbol has wrong value
after eval or require
p4raw-id: //depot/perl@23528
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4305,7 +4305,7 @@ Perl_yylex(pTHX) case KEY___PACKAGE__: yylval.opval = (OP*)newSVOP(OP_CONST, 0, (PL_curstash - ? newSVsv(PL_curstname) + ? newSVpv(HvNAME(PL_curstash), 0) : &PL_sv_undef)); TERM(THING); |