Changeset 3258

Timestamp:

03/12/09 02:10:28 (3 years ago)

Author:

jquelin

Message:

using padre::config::constants within padre::config

File:

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

trunk/Padre/lib/Padre/Config.pm

@@ -20 +20 @@
 use Padre::Config::Host    ();
 
+use Padre::Config::Constants qw{ $PADRE_CONFIG_DIR };
+
 our $VERSION   = '0.28';
 
@@ -70 +72 @@
 
 # Establish Padre's home directory
-my $DEFAULT_DIR = File::Spec->catdir(
-    (defined $ENV{PADRE_HOME} ? $ENV{PADRE_HOME} : File::HomeDir->my_data),
-    Padre::Config->product_path,
-);
-unless ( File::Spec->file_name_is_absolute($DEFAULT_DIR) ) {
-    $DEFAULT_DIR = File::Spec->rel2abs($DEFAULT_DIR);
-}
+my $DEFAULT_DIR = $PADRE_CONFIG_DIR;