Make the watch { } wrapper properly apply context

[perl/modules/Variable-Magic.git] / t / lib / Variable / Magic / TestWatcher.pm

diff --git a/t/lib/Variable/Magic/TestWatcher.pm b/t/lib/Variable/Magic/TestWatcher.pm
index f9ba0ea1a91df2e4ddfad993b731ee04ec0330d8..98a4b08b85d279ac1e64fd9cd8936519c13fb792 100644 (file)
--- a/t/lib/Variable/Magic/TestWatcher.pm
+++ b/t/lib/Variable/Magic/TestWatcher.pm
@@ -45,7 +45,10 @@ sub watch (&;$$) {
  my @ret;
  local %mg = ();
  local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
- if (defined $want and not $want) { # scalar context
+ local $@;
+ if (not defined $want) { # void context
+  eval { $code->() };
+ } elsif (not $want) { # scalar context
   $ret[0] = eval { $code->() };
  } else {
   @ret = eval { $code->() };