summaryrefslogtreecommitdiff
path: root/expire-baks
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2017-02-20 11:46:33 +0100
committerPeter Palfrader <peter@palfrader.org>2017-02-20 11:46:33 +0100
commitb0145d0a8cc4220009b6171b81c2d9331dad4545 (patch)
tree8af2d86bbcf77dd3e35fffbf84b580a9143a5de9 /expire-baks
parentfa932e04d33d71439423732804dffbb6933ad3fc (diff)
digest update
Diffstat (limited to 'expire-baks')
-rwxr-xr-xexpire-baks4
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;