X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=bacula%2Fscripts%2Fmanual_prune.pl;h=d01dbbfd1e64ab2ef24c196c3567bf6b6f800bb2;hb=c634c9c86e79d95ea7514f1d0ce988e29f4192f7;hp=69d7f1dbee59f0771c56afb6f752673f01118cdd;hpb=940e7d37b015236e292e9ca23513b9c45faa49c2;p=bacula%2Fbacula

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 = <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;
         }
     }