my %totals;
-sub displayStats () {
+sub displayStats() {
my $statsFile = Logger->new(
name => ".$FindBin::Script.stats",
path => $ENV{HOME},
return;
} # displayStats
-sub fillPictures () {
+sub fillPictures($signame = undef) {
my @images;
$totals{bgdirs} = 0;
$msg = localtime() . $msg;
- print $hist $msg;
+ print $hist "$msg\n";
close $hist;
} # writeHistory
-sub writeSetBG ($filename, $image) {
+sub writeSetBG($filename, $image) {
open my $file, '>', $filename
or error "Unable to open $filename for writing - $!", 1;
return;
} # updateSetBG
-sub SwitchWallPaper {
+sub SwitchWallPaper($saigname) {
# We don't need to do anything here, just handle the interrupt and
# let the while loop continue.
debug 'SwitchWallPaper: Interrupt received';