Correct bad state expectation

Due to a compiler bug, the closure here was not being cloned by its
outer scope. This caused various nasty thread safety bugs, and has now
been rectified. However, this test depended on the buggy behavior.

Author: jnthn

S04-declarations/state.t

@@ -134,14 +134,14 @@ plan 41;
 #?DOES 1
 {
     my $str = "abc";
-
     my $re  = {
-        $str ~~ s:Perl5/^(.)/{ state $++; }/;
+        state $a = 0;
+        $str ~~ s:Perl5/^(.)/{ $a++ }/;
     };
     $re();
     $re();
     $re();
-    is $str, "2bc", "state() inside regular expressions works";
+    is $str, "2bc", "state() variable referenced from regex replacement part works";
 }
 
 # state() inside subs, chained declaration