From 1966ac8910411800d6bd5a61eacf3efbdaa3df2b Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 4 Jan 2011 15:41:24 +0000 Subject: [PATCH] fix shares which start with slash / --- bin/BackupPC_checkArchiveConsistency | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/BackupPC_checkArchiveConsistency b/bin/BackupPC_checkArchiveConsistency index eb202e1..169d0d3 100755 --- a/bin/BackupPC_checkArchiveConsistency +++ b/bin/BackupPC_checkArchiveConsistency @@ -33,7 +33,7 @@ my $sth = $dbh->prepare($sql); $sth->execute($dvd_nr); while (my $row = $sth->fetchrow_hashref()) { my $host_share = $row->{share}; - $host_share =~ s/(.*?):(.*)/$1_$2_/gi; + $host_share =~ s/(.*?):\/?(.*)/$1_$2_/gi; my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz"; my (undef, undef, undef, undef, undef, undef, undef, $fs_size, undef, undef, undef, undef, undef) = stat($filename); print "checking $filename..."; -- 2.20.1