X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Fsetbg;h=ac0038d9bb24fdbeef7b22569517173c535ae251;hb=43bcea3777de207abb255b249028892826dfa4f2;hp=c7a9b249b73801a3a3653551499ba247579f19d2;hpb=30711801710786c51a071df0e9ff85a649ab7c32;p=clearscm.git

diff --git a/bin/setbg b/bin/setbg
index c7a9b24..ac0038d 100755
--- a/bin/setbg
+++ b/bin/setbg
@@ -57,6 +57,7 @@ use warnings;
 use FindBin;
 use Getopt::Long;
 use Proc::ProcessTable;
+use File::Spec;
 use CGI qw/:standard/;
 
 use lib "$FindBin::Bin/../lib";
@@ -107,8 +108,10 @@ GetOptions (
   'bgdir=s' => \@imgDirs,
 ) || Usage;
 
-foreach (@imgDirs) {
-  error "$_ is not a directory", 1 unless -d $_;
+for (my $i = 0; $i < scalar @imgDirs; $i++) {
+  error "$imgDirs[$i] is not a directory", 1 unless -d $imgDirs[$i];
+  
+  $imgDirs[$i] = File::Spec->rel2abs ($imgDirs[$i]);
 } # foreach
 
 # Using gsettings
@@ -117,7 +120,7 @@ my $setbgOpts	= "set org.gnome.desktop.background picture-uri \"file://";
 
 my @images = fillPictures;
 
-Usage "No images to display. Must specify -imgDir" unless @images;
+Usage "No images to display. Must specify -bgdir" unless @images;
  
 sub SwitchWallPaper {
   # We don't need to do anything here, just handle the interrupt and