From: Kern Sibbald <kern@sibbald.com>
Date: Sun, 23 Oct 2011 17:00:17 +0000 (+0200)
Subject: Tweak regress debug
X-Git-Tag: Release-5.2.1~42
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9d33bbb0188a6cc39edfafca8faa225830f2dcf0;p=thirdparty%2Fbacula.git

Tweak regress debug
---

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index d1472cbf2..4f5c14905 100644
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -491,8 +491,10 @@ sub check_prune_list
     close(FP);
     foreach my $jobid (keys %to_check) {
         if (!$seen{$jobid}) {
-            print "ERROR: in $f, $jobid is still present in the 2nd 'list jobs'\n";
+            print "******* listing of $f *********\n"
             system("cat $f");
+            print "******* end listing of $f *********\n"
+            print "ERROR: in $f, $jobid is still present in the 2nd 'list jobs'\n";
             exit 1;
         }
     }