cmp_ok between overloaded objects considered harmful with older Test::More

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 32-atom-and.t

diff --git a/t/32-atom-and.t b/t/32-atom-and.t
index 36819abd84576d62fd5c5b357c5a73a33a4cb682..22ceb814003cd23489f2d734a6c9eac28951d16e 100644 (file)
--- a/t/32-atom-and.t
+++ b/t/32-atom-and.t
@@ -119,7 +119,7 @@ for my $t (@tests) {
   } elsif ($err) {
    fail "$desc failed but shouldn't: $err";
   } else {
-   cmp_ok $a, '==', $exp, "$desc == '$exp'";
+   ok +($a == $exp), "$desc == '$exp'";
   }
  }
 }