use strict;
use warnings;
-use Test::More tests => 33;
+use Test::More tests => 34;
use Sub::Nary;
[ sub { eval { }; $x, 2 }, 2 ],
[ sub { 1, eval { $x, eval { $h{foo} } } }, 3 ],
[ sub { eval { 1, do { eval { @a }, 2 } } }, 'list' ],
+
+ [ sub { eval '1, 2' }, 'list' ],
);
my $i = 1;