Importing Variable-Magic-0.16.tar.gz

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

diff --git a/t/28-uvar.t b/t/28-uvar.t
index 7fa30b124301accd0f9a1cf13f5d05e7d5de7ba4..4800c44bbc0c1c8baf5161eb88cc213bc455ba79 100644 (file)
--- a/t/28-uvar.t
+++ b/t/28-uvar.t
@@ -75,12 +75,12 @@ eval {
  local $SIG{__WARN__} = sub { die };
  $x = $h2{a};
 };
-ok(!$@,    'uvar : fetch with incomplete magic');
+is($@, '', 'uvar : fetch with incomplete magic');
 is($x, 37, 'uvar : fetch with incomplete magic correctly');
 
 eval {
  local $SIG{__WARN__} = sub { die };
  $h2{a} = 73;
 };
-ok(!$@,        'uvar : store with incomplete magic');
+is($@, '',     'uvar : store with incomplete magic');
 is($h2{a}, 73, 'uvar : store with incomplete magic correctly');