[Bps-public-commit] r14413 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jul 22 23:59:39 2008
New Revision: 14413

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI/PublishCommand.pm

Log:
 r64779 at onn:  sartak | 2008-07-22 23:52:36 -0400
 Some cleanup of path handling, give a Path::Class::Dir object


Modified: Prophet/trunk/lib/Prophet/CLI/PublishCommand.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/PublishCommand.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/PublishCommand.pm	Tue Jul 22 23:59:39 2008
@@ -1,16 +1,17 @@
 package Prophet::CLI::PublishCommand;
 use Moose::Role;
 
+use Path::Class;
 use File::Temp ();
 use File::Rsync;
 
 sub tempdir {
     my $self = shift;
-    my $dir = File::Temp::tempdir(CLEANUP => 1);
-
+    my $tmp = File::Temp::tempdir(CLEANUP => 1);
     my $uuid = $self->app_handle->handle->db_uuid;
-    $dir .= "/$uuid";
-    mkdir $dir;
+
+    my $dir = dir($tmp, $uuid);
+    $dir->mkpath;
 
     return $dir;
 }