From c634c9c86e79d95ea7514f1d0ce988e29f4192f7 Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Wed, 30 Dec 2015 09:57:16 +0100 Subject: [PATCH] Fix #1545 about fix in manual_prune.pl script with large number of volumes --- bacula/scripts/manual_prune.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bacula/scripts/manual_prune.pl b/bacula/scripts/manual_prune.pl index 69d7f1dbee..d01dbbfd1e 100755 --- a/bacula/scripts/manual_prune.pl +++ b/bacula/scripts/manual_prune.pl @@ -216,13 +216,13 @@ quit while (my $l = ) { # | 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; } } -- 2.39.5