Minor fix

* lib/App/Glacier/Command/Periodic.pm (run): Use the touchdir method.

1 files changed, 1 insertions, 16 deletions

diff --git a/lib/App/Glacier/Command/Periodic.pm b/lib/App/Glacier/Command/Periodic.pm
index 85f3cc0..638639a 100644
--- a/lib/App/Glacier/Command/Periodic.pm
+++ b/lib/App/Glacier/Command/Periodic.pm
@@ -6,8 +6,6 @@ use parent qw(App::Glacier::Command);
 use Carp;
 use Data::Dumper;
 use File::Basename;
-use File::Path qw(make_path);
-use App::Glacier::Timestamp;
 
 =head1 NAME
 
@@ -73,20 +71,7 @@ sub run {
 						        $key, $res);
 		    my $localname = $self->archive_cache_filename($vault,
 							     $res->{ArchiveId});
-		    my $dir = dirname($localname);
-		    unless (-d $dir) {
-			make_path($dir, { error => \my $err });
-			if (@$err) {
-			    for my $diag (@$err) {
-				my ($dir, $message) = %$diag;
-				if ($dir eq '') {
-				    $self->error($message);
-                                } else {
-				    $self->error("can't create directory $dir: $message");
-                                }
-                            }
-			}
-		    }
+		    $self->touchdir(dirname($localname));
 
 		    require App::Glacier::Command::Get;
 		    my $get = clone App::Glacier::Command::Get($self);