Bless the op info object into the right class (stealing the logic from B)

[perl/modules/Variable-Magic.git] / t / 28-uvar.t

diff --git a/t/28-uvar.t b/t/28-uvar.t
index c4551ed6c941d74381eef3c675b7da85cef0bfb7..fcb531b8d7d691fc24e71dd70cc7dd1a9f36e4e9 100644 (file)
--- a/t/28-uvar.t
+++ b/t/28-uvar.t
@@ -105,7 +105,7 @@ for my $i (1 .. 2) {
 
 for my $i (1 .. 2) {
  eval { $h3{b} = 5 + $i };
- is        $@,          "uvar: change readonly key in store doesn't croak ($i)";
+ is        $@,   '',    "uvar: change readonly key in store doesn't croak ($i)";
  is_deeply \%h3, { a => 3, b => 5, c => 5 + $i },
                         "uvar: change readonly key in store correcty ($i)";
 }