This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lvref.t: do-block err msg is no longer to-do
authorFather Chrysostomos <sprout@cpan.org>
Wed, 1 Oct 2014 05:28:48 +0000 (22:28 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 07:10:14 +0000 (00:10 -0700)
The previous commit’s rearrangement of things fixed this, too.

t/op/lvref.t

index 6634f71..2cd863b 100644 (file)
@@ -311,11 +311,9 @@ eval { \%::x = [] };
 like $@, qr/^Assigned value is not a HASH reference at/,
     'assigning non-hash ref to package hash ref';
 
-on;
 eval '(\do{}) = 42';
 like $@, qr/^Can't modify reference to do block in list assignment at /,
     "Can't modify reference to do block in list assignment";
-off;
 eval '(\pos) = 42';
 like $@,
      qr/^Can't modify reference to match position in list assignment at /,