[gimp-perl] Use mkdir as $HOME will always exist.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Use mkdir as $HOME will always exist.
- Date: Fri, 13 Jun 2014 00:26:13 +0000 (UTC)
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]