>From 5d720731319400079d872abd01daaee03946dec3 Mon Sep 17 00:00:00 2001
From: Tim Ruehsen <address@hidden>
Date: Sat, 11 Apr 2015 17:14:56 +0200
Subject: [PATCH] Added GDB support to Perl tests.

* WgetTests.pm (run): Check GDB_TESTS environment variable.
---
 tests/WgetTests.pm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/tests/WgetTests.pm b/tests/WgetTests.pm
index 3d3b9dd..3418c0d 100644
--- a/tests/WgetTests.pm
+++ b/tests/WgetTests.pm
@@ -114,10 +114,20 @@ sub run
       ($cmdline =~ m{^/.*}msx) ? $cmdline : "$self->{_workdir}/$cmdline";
 
     my $valgrind = $ENV{VALGRIND_TESTS};
-    if (!defined $valgrind || $valgrind eq q{} || $valgrind == 0)
+    if (!defined $valgrind)
     {
+        $valgrind = 0;
+    }
+
+    my $gdb = $ENV{GDB_TESTS};
+    if (!defined $gdb)
+    {
+        $gdb = 0;
+    }
 
-        # Valgrind not requested - leave $cmdline as it is
+    if ($gdb == 1)
+    {
+        $cmdline = 'gdb --args ' . $cmdline;
     }
     elsif ($valgrind == 1)
     {
@@ -125,7 +135,7 @@ sub run
           'valgrind --error-exitcode=301 --leak-check=yes --track-origins=yes '
           . $cmdline;
     }
-    else
+    elsif ($valgrind ne q{} && $valgrind != 0)
     {
         $cmdline = "$valgrind $cmdline";
     }
-- 
1.9.1