X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F32-hash.t;h=a7408fce4cf83985e9008ba4407b7a75a9c30bf3;hb=788d90465f0c4180f7b27d63f355bbf260ecb972;hp=1bbd3001e800f665d558272dc8d4c88591b36605;hpb=c88c00773bfc576b07eafbc794cdb3ab2b0c670d;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/32-hash.t b/t/32-hash.t
index 1bbd300..a7408fc 100644
--- 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';