[Pgp-tools-commit] r776 - trunk/caff

[Guilhem Moulin]

Author: guilhem-guest
Date: 2015-02-20 19:35:57 +0000 (Fri, 20 Feb 2015)
New Revision: 776

Modified:
   trunk/caff/caff
Log:
caff: Don't use File::Path.

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2015-02-20 19:35:52 UTC (rev 775)
+++ trunk/caff/caff	2015-02-20 19:35:57 UTC (rev 776)
@@ -404,7 +404,6 @@
 use strict;
 use IO::Handle;
 use File::Copy qw{copy};
-use File::Path qw{make_path};
 use File::Temp;
 use Text::Template;
 use MIME::Entity;
@@ -1830,7 +1829,7 @@
 
 		# save the armored key
 		my $keydir = "$KEYSBASE/$DATE_STRING";
-		-d $keydir || make_path($keydir , {mode => 0700}) or myerror(1, "Cannot mkdir $keydir: $!");
+		-d $keydir || mkdir $keydir, 0700 or myerror(1, "Cannot mkdir $keydir: $!");
 
 		my $keyfile = "$keydir/$longkeyid.key.$uid->{serial}.".sanitize_uid($text).".asc";
 		open my $KEY, '>', $keyfile or myerror(1, "Cannot open $keyfile: $!");