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

Fixed another occurance of using %d instead of %s

Fixed up messages displayed a bit
parent a1585f87
......@@ -35,7 +35,7 @@ use File::Find;
use File::Path qw( rmtree mkpath );
use File::Spec;
use Getopt::Long;
use POSIX qw (strftime);
use POSIX qw (strftime lchown);
use Data::Dumper;
use MIME::Base64;
......@@ -1035,7 +1035,7 @@ sub restore
# Loop through backup sequences
for (my $seq = 0; $seq <= $origPathAttribs{$path}->{'sequence'}; $seq++) {
printLog(LOG_DEBUG,"R: Path '[$dest]/$path' restoring files ".($seq+1)." of ".
printLog(LOG_DEBUG,"R: Path '[$dest]/$path' restoring data ".($seq+1)." of ".
($origPathAttribs{$path}->{'sequence'}+1)."\n");
# Args for tar
......@@ -1123,7 +1123,7 @@ sub restore
printLog(LOG_ERROR,"Failed to execute: $!\n");
exit 1;
} elsif ($? & 127) {
printLog(LOG_ERROR,"Child died with signal %d\n",($? & 127));
printLog(LOG_ERROR,"Child died with signal %s\n",($? & 127));
exit 1;
} else {
my $retcode = $? >> 8;
......@@ -1156,7 +1156,7 @@ sub restore
# Strip first part of the path
(my $path = $File::Find::dir) =~ s#^$source/?##;
printLog(LOG_DEBUG,"R: Path '[$dest]/$path' restoring attributes\n");
printLog(LOG_DEBUG,"R: Path '[$dest]/$path' restoring meta-data\n");
# Loop with directories in this path
foreach my $dname (keys %{$origDirList{$path}}) {
......
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