diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-08 10:00:38 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-08 16:17:03 -0700 |
| commit | e157a82b7da0adb94ee8eb516fa3b8da06977900 (patch) | |
| tree | e1b22455a336fab192331374821baad3fb26b1b5 /pp.c | |
| parent | 7eeb6e4ece329a87e4a71555a3e99a1da2a21bb4 (diff) | |
| download | perl-e157a82b7da0adb94ee8eb516fa3b8da06977900.tar.gz | |
Make __SUB__ work in special blocks
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5931,7 +5931,7 @@ PP(pp_runcv) oldsi->si_cxix = oldcxix; } else cv = find_runcv(NULL); - XPUSHs(CvUNIQUE(cv) ? &PL_sv_undef : sv_2mortal(newRV((SV *)cv))); + XPUSHs(CvEVAL(cv) ? &PL_sv_undef : sv_2mortal(newRV((SV *)cv))); RETURN; } |