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
[perl5.git] / 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 /,