diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-27 10:06:44 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-28 22:58:50 -0800 |
commit | a84828f3d678aa901130999bcf125ea17d27cce5 (patch) | |
tree | da6b0edd0b4a712a2e6d22ad280bfaab91ebfbd3 /pp.c | |
parent | 4d6f11e562d40a9ab0b0578350fb6d356b550649 (diff) | |
download | perl-a84828f3d678aa901130999bcf125ea17d27cce5.tar.gz |
diag_listed_as for lvalue scalar context errors
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -75,6 +75,7 @@ PP(pp_padav) const I32 flags = is_lvalue_sub(); if (flags && !(flags & OPpENTERSUB_INARGS)) { if (GIMME == G_SCALAR) + /* diag_listed_as: Can't return %s to lvalue scalar context */ Perl_croak(aTHX_ "Can't return array to lvalue scalar context"); PUSHs(TARG); RETURN; @@ -121,6 +122,7 @@ PP(pp_padhv) const I32 flags = is_lvalue_sub(); if (flags && !(flags & OPpENTERSUB_INARGS)) { if (GIMME == G_SCALAR) + /* diag_listed_as: Can't return %s to lvalue scalar context */ Perl_croak(aTHX_ "Can't return hash to lvalue scalar context"); RETURN; } |