Changeset 10615 for trunk/Padre/dev.pl

Timestamp:

02/08/10 02:23:11 (2 years ago)

Author:

adamk

Message:

Added support for --reset to flush and reset the configuration to defaults, because the Swarm plugin is instantly segfaulting Padre at startup and I didn't want to have to keep resetting the configuration by hand all the time.

File:

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

trunk/Padre/dev.pl

@@ -15 +15 @@
 use Getopt::Long ();
 use vars qw{
+    $USAGE
     $DEBUG
-    $TRACE
-    $DIE
     $PROFILE
     $PLUGINS
-    $USAGE
     $FULLTRACE
     $INVISIBLE
@@ -27 +25 @@
 
 BEGIN {
+    $USAGE     = 0;
     $DEBUG     = 0;
-    $DIE       = 0;
     $PROFILE   = 0;
     $PLUGINS   = 0;
-    $USAGE     = 0;
     $FULLTRACE = 0;
     $INVISIBLE = 0;
     @INCLUDE   = ();
     Getopt::Long::GetOptions(
-        'usage|help' => \$USAGE,
-        'debug|d'    => \$DEBUG,
-        'trace'      => sub {
-            $ENV{PADRE_DEBUG} = 1;
-        },
-        'die'         => \$DIE,
+        'usage|help'  => \$USAGE,
+        'debug|d'     => \$DEBUG,
+        'trace'       => sub { $ENV{PADRE_DEBUG} = 1 },
+        'die'         => sub { $ENV{PADRE_DIE}   = 1 },
         'profile'     => \$PROFILE,
         'a'           => \$PLUGINS,
@@ -50 +45 @@
 }
 
-$USAGE and usage();
-
 $ENV{PADRE_DEV}  = 1;
 $ENV{PADRE_HOME} = $FindBin::Bin;
-$ENV{PADRE_DIE}  = $DIE;
 
 use lib $FindBin::Bin, "$FindBin::Bin/lib";
@@ -90 +82 @@
 
 if ($FULLTRACE) {
-    eval { require Devel::Trace; };
+    eval {
+        require Devel::Trace;
+    };
     if ($@) {
         print "Error while initilizing --fulltrace while trying to load Devel::Trace:\n"
             . "$@Maybe Devel::Trace isn't installed?\n";
-        exit 1;
+        exit(1);
     }
     push @cmd, '-d:Trace';
@@ -121 +115 @@
 push @cmd, '--help' if $USAGE;
 
-$DEBUG and print "Running " . join( ' ', @cmd ) . "\n";
+if ( $DEBUG ) {
+    print "Running " . join( ' ', @cmd ) . "\n";
+}
+
+if ( $USAGE ) {
+    usage();
+}
 
 system(@cmd);
 
 sub vmsgfmt {
-    msgfmt(
-        {   in      => "$_[0]/share/locale/",
-            verbose => 0,
-        }
-    );
+    msgfmt( { in => "$_[0]/share/locale/", verbose => 0 } );
 }