for (mark = newsp + 1; mark <= SP; mark++) {
if (SvTEMP(*mark))
NOOP;
- else if (SvFLAGS(*mark) & SVs_PADTMP
- || (SvFLAGS(*mark) & (SVf_READONLY|SVf_FAKE))
- == SVf_READONLY)
+ else if (SvFLAGS(*mark) & SVs_PADTMP)
*mark = sv_mortalcopy(*mark);
else {
/* Can be a localized value subject to deletion. */
@INC = '../lib';
require './test.pl';
}
-plan tests=>156;
+plan tests=>158;
sub a : lvalue { my $a = 34; ${\(bless \$a)} } # Return a temporary
sub b : lvalue { ${\shift} }
is +(&$sub)[0], 72, "sub returning pad var in list context$suffix";
}
continue { $suffix = ' (explicit return)' }
+
+# Returning read-only values in reference context
+$suffix = '';
+for (
+ sub :lvalue { $] }->(),
+ sub :lvalue { return $] }->()
+) {
+ is \$_, \$], 'read-only values are returned in reference context'
+ .$suffix # (they used to be copied)
+}
+continue { $suffix = ' (explicit return)' }