-print "1..67\n";
+print "1..68\n";
BEGIN {
chdir 't' if -d 't';
print "# '$nnewvar'.\nnot " unless $nnewvar eq '8';
print "ok 46\n";
-# This must happen at run time
-eval {
- sub AUTOLOAD : lvalue { $newvar };
-};
+eval 'sub AUTOLOAD : lvalue { $newvar }';
foobar() = 12;
print "# '$newvar'.\nnot " unless $newvar eq "12";
print "ok 47\n";
is($blah, 8, "yada");
}
+TODO: {
+ local $TODO = "bug #23790";
+ my @arr = qw /one two three/;
+ my $line = "zero";
+ sub lval_array () : lvalue {@arr}
+
+ for (lval_array) {
+ $line .= $_;
+ }
+
+ is($line, "zeroonetwothree");
+}