Commit e085203a authored by Nigel Kukard's avatar Nigel Kukard
Browse files

Added missing $sysdir to exclude-data

parent 931af67a
......@@ -457,15 +457,18 @@ sub backup
}
# Check if we excluding data dirs
if (defined($config{'exclude-data'})) {
# Loop with data dirs
foreach my $excl (@defaultDataExcl,@{$config{'data-dir'}}) {
# Sanitize path
my $testPath = File::Spec->rel2abs("$sysdir/$excl");
# Check...
if ("/$path" eq $testPath) {
printLog(LOG_INFO,"S: Path '[$source]/($path)' is a data directory, ignoring files\n");
$doBackup{$path} |= ST_DIR_SYS;
return ();
# Loop through system dirs
foreach my $sysdir (@{$config{'system-base'}}) {
# Loop with data dirs
foreach my $excl (@defaultDataExcl,@{$config{'data-dir'}}) {
# Sanitize path
my $testPath = File::Spec->rel2abs("$sysdir/$excl");
# Check...
if ("/$path" eq $testPath) {
printLog(LOG_INFO,"S: Path '[$source]/($path)' is a data directory, ignoring files\n");
$doBackup{$path} |= ST_DIR_SYS;
return ();
}
}
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment