diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-27 10:09:01 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-28 22:58:51 -0800 |
commit | ae917476d21d843e7a5fcaff458c5ff8cad96328 (patch) | |
tree | f239b3b8763e6c61d86929e5480a2f6dba290e51 /pp_ctl.c | |
parent | a84828f3d678aa901130999bcf125ea17d27cce5 (diff) | |
download | perl-ae917476d21d843e7a5fcaff458c5ff8cad96328.tar.gz |
diag_listed_as for another lv sub error
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2395,6 +2395,7 @@ S_return_lvalues(pTHX_ SV **mark, SV **sp, SV **newsp, I32 gimme, POPSUB(cx,sv); PL_curpm = newpm; LEAVESUB(sv); + /* diag_listed_as: Can't return %s from lvalue subroutine */ Perl_croak(aTHX_ "Can't return a %s from lvalue subroutine", SvREADONLY(TOPs) ? "readonly value" : "temporary"); |