[libnet-openid-common-perl] 26/34: eval to trap the deeper warnings. I hate this

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.

commit 90bb5d907db017d34aaac59227c2d89cd56f8705
Author: Robert Norris <rob at eatenbyagrue.org>
Date:   Sat Nov 6 11:50:45 2010 +1100

    eval to trap the deeper warnings. I hate this
---
 t/05-eq.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/t/05-eq.t b/t/05-eq.t
index bb3d80c..daea6d4 100644
--- a/t/05-eq.t
+++ b/t/05-eq.t
@@ -41,7 +41,6 @@ sub compare_comparisons {
     # possibly we should make timing_indep_eq produce exactly the same
     # warnings as eq when faced with undefs, and then we should test
     # the warnings. that seems like too much effort
-    no warnings 'uninitialized';
 
-    is( ($first eq $second), OpenID::util::timing_indep_eq($first, $second), $description);
+    is( ($first eq $second), eval { OpenID::util::timing_indep_eq($first, $second) } , $description);
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git