This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ensure that C<(state $x) = $y> is not a state assignment
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 22:49:14 +0000 (22:49 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 22:49:14 +0000 (22:49 +0000)
(due to the parentheses that make it a regular assignment
to a variable declared inside a list)

p4raw-id: //depot/perl@28089

t/op/state.t

index 260fa8b..6da2478 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 use strict;
 use feature "state";
 
 use strict;
 use feature "state";
 
-plan tests => 23;
+plan tests => 25;
 
 ok( ! defined state $uninit, q(state vars are undef by default) );
 
 
 ok( ! defined state $uninit, q(state vars are undef by default) );
 
@@ -77,3 +77,11 @@ is( $f2->(), 2, 'generator 2 once more' );
     ::is( foo(), 20, "increments correctly, twice" );
     ::is( $fetchcount, 1, "fetch only called once" );
 }
     ::is( foo(), 20, "increments correctly, twice" );
     ::is( $fetchcount, 1, "fetch only called once" );
 }
+
+sub stateless {
+    # stateless assignment
+    (state $reinitme) = 42;
+    ++$reinitme;
+}
+is( stateless(), 43, 'stateless function, first time' );
+is( stateless(), 43, 'stateless function, second time' );