From 7c8cbfe4ddda3efa23f359130d2ff26d931b9842 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <srezic@cpan.org>
Date: Tue, 10 Dec 2013 12:36:50 +0100
Subject: [PATCH] don't trust $@

See http://perldoc.perl.org/perl5140delta.html#Exception-Handling
---
 t/1basic.t | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 t/1basic.t

diff --git a/t/1basic.t b/t/1basic.t
old mode 100644
new mode 100755
index fccc80a..0ee6bcc
--- a/t/1basic.t
+++ b/t/1basic.t
@@ -10,7 +10,6 @@ is ($digest->hexdigest, 'b4fd7568bef9cde663dee6e029bf04ec');
 print "fsck\nfsck\n";
 is ($digest->hexdigest, 'cde05cba57ea689e1dd96304759d0184');
 
-eval {
-$digest = IO::Digest->new (\*STDOUT, 'CLKAO'); # I don't think there will be Digest::CLKAO
+ok !eval {
+    IO::Digest->new (\*STDOUT, 'CLKAO'); # I don't think there will be Digest::CLKAO
 };
-ok ($@);
-- 
1.8.3.4