Changeset 2178

Timestamp:

12/23/08 09:41:22 (3 years ago)

Author:

azawawi

Message:

Source cleanup (tabs->spaces) in script/padre and improved 'use STD' optional startup message.

File:

• trunk/Padre/script/padre (modified) (2 diffs)

trunk/Padre/script/padre

@@ -6 +6 @@
 $| = 1;
 
-unless ( $^O eq 'MSWin32' or $ENV{PADRE_DEV} or grep /^(-h|--help)$/, @ARGV) {
-    exit 0 if fork();
+unless ( $^O eq 'MSWin32' or $ENV{PADRE_DEV} or grep /^(-h|--help)$/, @ARGV) {  
+    exit 0 if fork();
 }
 
@@ -15 +15 @@
 $ENV{PADRE_PAR_PATH} = $ENV{PAR_TEMP}||'';
 
-if( $^V ge v5.1 ) { # PERL_VERSION
-  # This is needed for Padre::Plugin::Perl6 and Syntax::Highlight::Perl6
-  # This will be removed once this STD.pm bug is fixed.
-    eval "use STD;";
-    if (not $@) {
-        print "XXX- Enabled support for STD.pm\n";
-    }
+if( $^V ge v5.1 ) { # $PERL_VERSION
+    # This is needed for Padre::Plugin::Perl6 and Syntax::Highlight::Perl6
+    # This will be removed once this STD.pm bug is fixed.
+    eval "use STD;";
+    if (not $@) { # $EVAL_ERROR
+        print "Loaded STD.pm for Padre::Plugin::Perl6\n";
+    }
 }