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 (file)
--- 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";