Browse files

Added patch submitted by Nicolas Baradakis for Bug #246

  • Loading branch information...
1 parent 8385f89 commit 99f7c376b435dcc0d437e6cce685338b9aea91b3 @kissifrot kissifrot committed Apr 17, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 backup-manager-purge
View
2 backup-manager-purge
@@ -146,7 +146,7 @@ sub parse_archive ($)
my ($prefix, $name, $date, $master, $filetype);
$archive = basename ($archive);
- if ($archive =~ m/^\s*($ENV{BM_ARCHIVE_PREFIX})-(\S+)?\.?(\d{8})\.(master\.)?(\S+)\s*$/) {
+ if ($archive =~ m/^\s*($ENV{BM_ARCHIVE_PREFIX})-?(\S+)?\.?(\d{8})\.(master\.)?(\S+)\s*$/) {
($prefix, $name, $date, $master, $filetype) = ($1, $2, $3, $4, $5);
$master = $master ? 1 : 0;
$name = "$prefix-md5" if $filetype eq 'md5' and not $name;

0 comments on commit 99f7c37

Please sign in to comment.