Changeset 3261

Timestamp:

03/12/09 02:19:22 (3 years ago)

Author:

jquelin

Message:

creating config dir if it doesn't exist

File:

• trunk/Padre/lib/Padre/Config/Constants.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Config/Constants.pm

@@ -5 +5 @@
 package Padre::Config::Constants;
 
+use File::Path            qw{ mkpath };
 use File::Spec;
 use File::Spec::Functions qw{ catdir catfile rel2abs };
@@ -28 +29 @@
 
 sub _find_padre_config_dir {
-    my $home;
-    
-    # PADRE_HOME env var set, always use unix style.
+    # define config dir
+    my @subdirs;
     if ( defined $ENV{PADRE_HOME} ) {
-        $home = catdir( $ENV{PADRE_HOME}, '.padre' );
-        return rel2abs($home);
+        # PADRE_HOME env var set, always use unix style.
+        @subdirs = ( $ENV{PADRE_HOME}, '.padre' );
+    } else {
+        # using data dir as defined by the os.
+        @subdirs = ( File::HomeDir->my_data );
+        push @subdirs, File::Spec->isa('File::Spec::Win32')
+            ? qw{ Perl Padre }  # on windows use the traditional vendor/product format
+            : qw{ .padre };     # TODO - is mac correctly covered?
     }
+    my $confdir = rel2abs( catdir( @subdirs ) );
 
-    # using data dir as defined by the os.
-    my $datadir = File::HomeDir->my_data;
-    my @subdirs = File::Spec->isa('File::Spec::Win32')
-        ? qw{ Perl Padre }  # on windows use the traditional vendor/product format
-        : qw{ .padre };     # TODO - is mac correctly covered?
+    # check if directory exists, create it otherwise
+    mkpath($confdir) or die "Cannot create config dir '$confdir' $!"
+        unless -e $confdir;
 
-    $home = catdir( $datadir, @subdirs );
-    return rel2abs($home);
+    return $confdir;
 }