summaryrefslogtreecommitdiff
path: root/client
diff options
context:
space:
mode:
authorPreston Cody <codeman@gentoo.org>2007-12-24 15:56:33 +0000
committerPreston Cody <codeman@gentoo.org>2007-12-24 15:56:33 +0000
commitcff09eeeed71a7b56fcaac1176e557fda9100d41 (patch)
treebbd63a92dfbf3a61a9b77527d980c69ce6fe79e3 /client
parentrename verbose to debug (diff)
downloadscire-cff09eeeed71a7b56fcaac1176e557fda9100d41.tar.gz
scire-cff09eeeed71a7b56fcaac1176e557fda9100d41.tar.bz2
scire-cff09eeeed71a7b56fcaac1176e557fda9100d41.zip
musta been too drunk to not remember mkpath.
svn path=/branches/new-fu/; revision=261
Diffstat (limited to 'client')
-rwxr-xr-xclient/scireclient.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/client/scireclient.pl b/client/scireclient.pl
index bf47e43..a1708f0 100755
--- a/client/scireclient.pl
+++ b/client/scireclient.pl
@@ -8,6 +8,7 @@ use warnings;
use IPC::Open2;
use Getopt::Long;
use Data::Dumper;
+use File::Path;
my $SCIRE_CONFIG_FILE = '../etc/scire.conf'; #will be /etc/scire.conf when released.
my %conf;
@@ -32,7 +33,7 @@ if (-d ".svn") {
if (! -d $conf{job_dir}) {
print "WARNING! $conf{job_dir} does not exist...creating\n";
- mkdir $conf{job_dir}, 0660
+ mkpath( $conf{job_dir}, {verbose => 1, mode => 0660})
or die("Couldn't make $conf{job_dir} w/ perms 0660: $!");
}