From: Kern Sibbald <kern@sibbald.com>
Date: Sat, 22 Oct 2011 19:58:01 +0000 (+0200)
Subject: Tweak check_prune_list
X-Git-Tag: Release-7.0.0~530
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=afffc2a827fc4138052bf15e1bcd5bc68514637b;p=bacula%2Fbacula

Tweak check_prune_list
---

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