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 /t | |
| 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 't')
| -rwxr-xr-x | t/comp/package.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/package.t b/t/comp/package.t index 6781be4b4f..d63e108ceb 100755 --- a/t/comp/package.t +++ b/t/comp/package.t @@ -1,6 +1,6 @@ #!./perl -print "1..12\n"; +print "1..14\n"; $blurfl = 123; $foo = 3; @@ -67,4 +67,7 @@ print "$Q" =~ /^__ANON__=/ ? "ok 11\n" : "not ok 11\n"; print ref $Q eq "__ANON__" ? "ok 12\n" : "not ok 12\n"; +package bug32562; +print __PACKAGE__ eq 'bug32562' ? "ok 13\n" : "not ok 13\n"; +print eval '__PACKAGE__' eq 'bug32562' ? "ok 14\n" : "not ok 14\n"; |