From c189e59f18a4a9d0e2cf8a88bb19d7042031793d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C3=A4r=20Karlsson?= <address@hidden>
Date: Sun, 2 Nov 2014 21:26:53 +0100
Subject: [PATCH] Fixed eval syntax that generated unnecessary warnings in
 WgetFeature.pm

---
 tests/ChangeLog      | 3 +++
 tests/WgetFeature.pm | 6 ++----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 5097871..e3101f7 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,6 @@
+2014-11-02  Pär Karlsson <address@hidden>
+	* WgetFeature.pm: Corrected block eval to string eval
+
 2014-10-31  Pär Karlsson <address@hidden>
 	* WgetTests.pm: Proper conditional operators, tidied up code, idiomatic
 	improvements as per modern Perl best practices.
diff --git a/tests/WgetFeature.pm b/tests/WgetFeature.pm
index 880a238..64e35cf 100644
--- a/tests/WgetFeature.pm
+++ b/tests/WgetFeature.pm
@@ -15,10 +15,8 @@ our %SKIP_MESSAGES;
       or croak "Cannot open 'WgetFeature.cfg': $ERRNO";
     my @lines = <$fh>;
     close $fh or carp "Cannot close 'WgetFeature.cfg': $ERRNO";
-    eval {
-        @lines;
-        1;
-    } or carp "Cannot eval 'WgetFeature.cfg': $ERRNO";
+    my $evalstring = join q{}, @lines;
+    eval { $evalstring } or carp "Cannot eval 'WgetFeature.cfg': $ERRNO";
 }
 
 sub import
-- 
2.0.4