X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Fsetbg;fp=bin%2Fsetbg;h=8de93c618fb5804a08dce4a37034bc511d5207b2;hb=e8cee6beef75aab158bdd7c3a54682c9969c8fa1;hp=a1f71d190b4bf200c919a9176073674aa20f8db5;hpb=44aaba558b2244c52c99d5a4bc50cae05c4ed514;p=clearscm.git

diff --git a/bin/setbg b/bin/setbg
index a1f71d1..8de93c6 100755
--- a/bin/setbg
+++ b/bin/setbg
@@ -105,7 +105,7 @@ my %opts = (
 
 my %totals;
 
-sub displayStats () {
+sub displayStats() {
   my $statsFile = Logger->new(
     name      => ".$FindBin::Script.stats",
     path      => $ENV{HOME},
@@ -125,7 +125,7 @@ sub displayStats () {
   return;
 } # displayStats
 
-sub fillPictures () {
+sub fillPictures($signame = undef) {
   my @images;
 
   $totals{bgdirs} = 0;
@@ -157,12 +157,12 @@ sub writeHistory($msg) {
 
   $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;
 
@@ -183,7 +183,7 @@ sub updateSetBG($bgimage, $lockimage) {
   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';