From 7c8cbfe4ddda3efa23f359130d2ff26d931b9842 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
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
