}
require "test.pl";
-plan( tests => 57 );
+plan( tests => 58 );
@foo = (1, 2, 3, 4);
cmp_ok($foo[0], '==', 1, 'first elem');
test_zero_args("do-returned list slice", do { (10,11)[2,3]; });
}
+{
+ # perl #20321
+ is (join('', @{[('abc'=~/./g)[0,1,2,1,0]]}), "abcba");
+}