From: rkinyon@cpan.org <rkinyon@cpan.org>
Date: Fri, 4 Jul 2008 17:23:22 +0000 (+0000)
Subject: Fixed problem with block vs. string evals
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffe7b7985b0e8be133bf5b69bd1e9279bd1f7785;p=dbsrgits%2FDBM-Deep.git

Fixed problem with block vs. string evals

git-svn-id: http://svn.ali.as/cpan/trunk/DBM-Deep@3713 88f4d9cd-8a04-0410-9d60-8f63309c3137
---

diff --git a/t/44_upgrade_db.t b/t/44_upgrade_db.t
index b42ca9e..335a62e 100644
--- a/t/44_upgrade_db.t
+++ b/t/44_upgrade_db.t
@@ -11,9 +11,9 @@ BEGIN {
         if ( $^O =~ /bsd/i );
 
     my @failures;
-    eval { use Pod::Usage 1.3; }; push @failures, 'Pod::Usage' if $@;
-    eval { use IO::Scalar; }; push @failures, 'IO::Scalar' if $@;
-    eval { use FileHandle::Fmode; }; push @failures, 'FileHandle::Fmode' if $@;
+    eval " use Pod::Usage 1.3;"; push @failures, 'Pod::Usage' if $@;
+    eval " use IO::Scalar;"; push @failures, 'IO::Scalar' if $@;
+    eval " use FileHandle::Fmode;"; push @failures, 'FileHandle::Fmode' if $@;
     if ( @failures ) {
         my $missing = join ',', @failures;
         plan skip_all => "'$missing' must be installed to run these tests";