Fix #1545 about fix in manual_prune.pl script with large number of volumes

[bacula/bacula] / bacula / scripts / manual_prune.pl

diff --git a/bacula/scripts/manual_prune.pl b/bacula/scripts/manual_prune.pl
index 69d7f1dbee59f0771c56afb6f752673f01118cdd..d01dbbfd1e64ab2ef24c196c3567bf6b6f800bb2 100755 (executable)
--- a/bacula/scripts/manual_prune.pl
+++ b/bacula/scripts/manual_prune.pl
@@ -216,13 +216,13 @@ quit
     while (my $l = <FP>)
     {
                   # |        1 |   TestVolume001 | Used
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Used/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Used/) {
             push @vol, $1;
         }
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Full/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Full/) {
             push @vol, $1;
         }
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Purged/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Purged/) {
             push @vol_purged, $1;
         }
     }