Tweak some optional module loading in tests

[perl/modules/Variable-Magic.git] / t / 32-hash.t

diff --git a/t/32-hash.t b/t/32-hash.t
index 1bbd3001e800f665d558272dc8d4c88591b36605..a7408fce4cf83985e9008ba4407b7a75a9c30bf3 100644 (file)
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -76,11 +76,13 @@ watch { dispell %h, $wiz } { }, 'dispell';
 SKIP: {
  my $SKIP;
 
- unless (VMG_UVAR) {
+ if (!VMG_UVAR) {
   $SKIP = 'uvar magic';
  } else {
-  eval "use B::Deparse";
-  $SKIP = 'B::Deparse' if $@;
+  local $@;
+  unless (eval { require B::Deparse; 1 }) {
+   $SKIP = 'B::Deparse';
+  }
  }
  if ($SKIP) {
   $SKIP .= ' required to test uvar/clear interaction fix';