Changeset 10621 for trunk/Padre/lib/Padre/Constant.pm

Timestamp:

02/08/10 03:51:35 (2 years ago)

Author:

azawawi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/Constant.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Constant.pm

@@ -102 +102 @@
 );
 
-use constant LOG_FILE       => File::Spec->catfile( CONFIG_DIR, 'debug.log' );
-use constant PLUGIN_DIR     => File::Spec->catdir( CONFIG_DIR, 'plugins' );
-use constant PLUGIN_LIB     => File::Spec->catdir( PLUGIN_DIR, 'Padre', 'Plugin' );
+use constant LOG_FILE => File::Spec->catfile( CONFIG_DIR, 'debug.log' );
+use constant PLUGIN_DIR => File::Spec->catdir( CONFIG_DIR, 'plugins' );
+use constant PLUGIN_LIB => File::Spec->catdir( PLUGIN_DIR, 'Padre', 'Plugin' );
 use constant CONFIG_HOST    => File::Spec->catfile( CONFIG_DIR, 'config.db' );
 use constant CONFIG_HUMAN   => File::Spec->catfile( CONFIG_DIR, 'config.yml' );
@@ -112 +112 @@
 # so we can run it again later if needed.
 sub init {
+
     # Check and create the directories that need to exist
     unless ( -e CONFIG_DIR or File::Path::mkpath(CONFIG_DIR) ) {
@@ -140 +141 @@
 # NOTE: The only reason this is here is that it is needed both during
 # main configuration, and also during Padre::Startup.
-use constant DEFAULT_SINGLEINSTANCE => (
-    WIN32 and not( $ENV{HARNESS_ACTIVE} or $^P )
-) ? 1 : 0;
+use constant DEFAULT_SINGLEINSTANCE => ( WIN32 and not( $ENV{HARNESS_ACTIVE} or $^P ) ) ? 1 : 0;
 
 use constant DEFAULT_SINGLEINSTANCE_PORT => 4444;