Fixed bug in setbg

diff --git a/bin/.vscode/launch.json b/bin/.vscode/launch.json
new file mode 100644 (file)
index 0000000..911f1e4
--- /dev/null
+++ b/bin/.vscode/launch.json
@@ -0,0 +1,16 @@
+{
+    // Use IntelliSense to learn about possible attributes.
+    // Hover to view descriptions of existing attributes.
+    // For more information, visit: https://go.microsoft.com/fwlink/?linkid=830387
+    "version": "0.2.0",
+    "configurations": [
+        {
+            "type": "perl",
+            "request": "launch",
+            "name": "Debug",
+            "program": "${workspaceFolder}/${relativeFile}",
+            "stopOnEntry": true,
+            "reloadModules": true
+        }
+    ]
+}
\ No newline at end of file

diff --git a/bin/setbg b/bin/setbg
index a1f71d1..ffcefda 100755 (executable)
--- 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;
@@ -162,7 +162,7 @@ sub writeHistory($msg) {
   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';

diff --git a/etc/cleantmp.conf b/etc/cleantmp.conf
index 3aa3f62..92c2904 100644 (file)
--- a/etc/cleantmp.conf
+++ b/etc/cleantmp.conf
@@ -27,7 +27,7 @@ snap.*
 ssh-.*
 config-err.*
 Temp-*
-tmp*
+tmp+
 tracker-*
 SWT-*
 grilo-plugin-cache*