diff options
Diffstat (limited to 'expire-baks')
| -rwxr-xr-x | expire-baks | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/expire-baks b/expire-baks index bc64baa..619ce81 100755 --- a/expire-baks +++ b/expire-baks @@ -2,7 +2,7 @@ # expire-baks -- expire backup files of format yyyymmdd-hhmmss-something.gz # -# Copyright (C) 2003, 2005 Peter Palfrader <peter@palfrader.org> +# Copyright (C) 2003, 2005, 2017 Peter Palfrader <peter@palfrader.org> # # Permission is hereby granted, free of charge, to any person obtaining # a copy of this software and associated documentation files (the @@ -138,7 +138,7 @@ sub getfiles($) { my %files; for my $file (@files) { - if ($file =~ /^MD5-/) { + if ($file =~ /^(MD5|DGST)-/) { my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($dir.'/'.$file) or warn("Cannot stat '$dir/$file': $!\n"), next; |