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

Cosmetic syntax fixups

parent d2298f0b
...@@ -380,6 +380,7 @@ if (checkPATH("pdlzip")) { ...@@ -380,6 +380,7 @@ if (checkPATH("pdlzip")) {
$config{'compress-lz'} = "plzip"; $config{'compress-lz'} = "plzip";
} }
# Sanitize the source and dest # Sanitize the source and dest
my $sourceDir = File::Spec->rel2abs($ARGV[0]); my $sourceDir = File::Spec->rel2abs($ARGV[0]);
my $destDir = File::Spec->rel2abs($ARGV[1]); my $destDir = File::Spec->rel2abs($ARGV[1]);
...@@ -923,8 +924,7 @@ sub backup ...@@ -923,8 +924,7 @@ sub backup
# exit 1; # exit 1;
} }
} }
# if (($doBackup{$path} & ST_DIR_SYS) != ST_DIR_SYS) { } else { # if (($doBackup{$path} & ST_DIR_SYS) != ST_DIR_SYS) {
} else {
# Remove old files # Remove old files
removeBackups( removeBackups(
"$dest/$path", "$dest/$path",
...@@ -1089,6 +1089,7 @@ if (defined($optctl{'backup'})) { ...@@ -1089,6 +1089,7 @@ if (defined($optctl{'backup'})) {
} }
# Restore function # Restore function
sub restore sub restore
{ {
......
Supports Markdown
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