[gimp-perl] Use mkdir as $HOME will always exist.



commit 85c7be632eaadaa17e1cc6951aa000ddf397bd72
Author: Ed J <edj src gnome org>
Date:   Fri Jun 13 01:25:59 2014 +0100

    Use mkdir as $HOME will always exist.

 examples/autosave2 |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/examples/autosave2 b/examples/autosave2
index 6c18271..1b22635 100755
--- a/examples/autosave2
+++ b/examples/autosave2
@@ -7,7 +7,6 @@ use Gimp;
 use Gimp::Fu;
 use Gimp::Extension;
 use Gimp::Data;
-use File::Path 'make_path';
 use List::Util qw(min max);
 
 my $SAVEDIR = "$ENV{HOME}/.gimp-autosave2";
@@ -29,7 +28,7 @@ sub save_dirty {
   my @images = grep { $_->is_dirty } Gimp::Image->list;
   return 1 unless @images;
   warn "$$-save_dirty got @images" if $Gimp::verbose >= 2;
-  make_path $SAVEDIR or die "$SAVEDIR: $!\n" unless -d $SAVEDIR;
+  mkdir $SAVEDIR or die "$SAVEDIR: $!\n" unless -d $SAVEDIR;
   my @openfiles;
   for my $i (@images) {
     my $file = $i->get_filename // '';


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]