Changeset 10621 for trunk/Padre/dev.pl

Timestamp:

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

Author:

azawawi

Message:

Perl tidy

File:

• trunk/Padre/dev.pl (modified) (3 diffs)

trunk/Padre/dev.pl

@@ -36 +36 @@
         'debug|d'     => \$DEBUG,
         'trace'       => sub { $ENV{PADRE_DEBUG} = 1 },
-        'die'         => sub { $ENV{PADRE_DIE}   = 1 },
+        'die'         => sub { $ENV{PADRE_DIE} = 1 },
         'profile'     => \$PROFILE,
         'a'           => \$PLUGINS,
@@ -82 +82 @@
 
 if ($FULLTRACE) {
-    eval {
-        require Devel::Trace;
-    };
+    eval { require Devel::Trace; };
     if ($@) {
         print "Error while initilizing --fulltrace while trying to load Devel::Trace:\n"
@@ -115 +113 @@
 push @cmd, '--help' if $USAGE;
 
-if ( $DEBUG ) {
+if ($DEBUG) {
     print "Running " . join( ' ', @cmd ) . "\n";
 }
 
-if ( $USAGE ) {
+if ($USAGE) {
     usage();
 }