diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-11-03 16:41:24 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-07 11:33:38 +0000 |
| commit | e9f19e3c03f1d62dc32ee20c3f9cd088c9618f14 (patch) | |
| tree | 074318b65e31ea0e26364ff00d9c2dcd871934a9 /pp_hot.c | |
| parent | 3d40713cb3f43f5a6bd87317708c170c5a6a2304 (diff) | |
| download | perl-e9f19e3c03f1d62dc32ee20c3f9cd088c9618f14.tar.gz | |
Re: [perl #17605] strange behaviour (difference between perl 5.6 and perl 5.8.0) in the regexp
Message-Id: <200211031641.gA3GfOm08609@crypt.compulink.co.uk>
p4raw-id: //depot/perl@18118
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2317,8 +2317,9 @@ PP(pp_leavesublv) PL_curpm = newpm; LEAVE; LEAVESUB(sv); - DIE(aTHX_ "Can't return a %s from lvalue subroutine", - SvREADONLY(TOPs) ? "readonly value" : "temporary"); + DIE(aTHX_ "Can't return %s from lvalue subroutine", + SvREADONLY(TOPs) ? (TOPs == &PL_sv_undef) ? "undef" + : "a readonly value" : "a temporary"); } else { /* Can be a localized value * subject to deletion. */ |