This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test croaks inadvertently rmvd by bd2688c4c
authorFather Chrysostomos <sprout@cpan.org>
Sun, 12 Oct 2014 18:23:54 +0000 (11:23 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 12 Oct 2014 19:04:25 +0000 (12:04 -0700)
t/lib/croak/op

index d71be34..8be9b12 100644 (file)
@@ -62,6 +62,18 @@ EXPECT
 Can't declare do block in "my" at - line 1, at EOF
 Execution of - aborted due to compilation errors.
 ########
 Can't declare do block in "my" at - line 1, at EOF
 Execution of - aborted due to compilation errors.
 ########
+# NAME ($_, state $x) = ...
+($_, CORE::state $x) = ();
+EXPECT
+Initialization of state variables in list context currently forbidden at - line 1, near ");"
+Execution of - aborted due to compilation errors.
+########
+# NAME my $y; ($y, state $x) = ...
+my $y; ($y, CORE::state $x) = ();
+EXPECT
+Initialization of state variables in list context currently forbidden at - line 1, near ");"
+Execution of - aborted due to compilation errors.
+########
 # NAME delete BAD
 delete $x;
 EXPECT
 # NAME delete BAD
 delete $x;
 EXPECT