Changeset 10032

Timestamp:

01/01/10 03:00:11 (2 years ago)

Author:

Sewi

Message:

Add new dev.pl option

File:

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

trunk/Padre/dev.pl

@@ -14 +14 @@
 # Collect options early
 use Getopt::Long ();
-use vars qw{$DEBUG $TRACE $DIE $PROFILE $PLUGINS $USAGE};
+use vars qw{$DEBUG $TRACE $DIE $PROFILE $PLUGINS $USAGE $FULLTRACE};
 
 BEGIN {
@@ -22 +22 @@
     $PLUGINS = 0;
     $USAGE   = 0;
+    $FULLTRACE = 0;
     Getopt::Long::GetOptions(
         'usage|help' => \$USAGE,
@@ -31 +32 @@
         'profile' => \$PROFILE,
         'a'       => \$PLUGINS,
+        'fulltrace' => \$FULLTRACE,
     );
 }
@@ -70 +72 @@
 push @cmd, '-d'          if $DEBUG;
 push @cmd, '-dt:NYTProf' if $PROFILE;
+
+if ($FULLTRACE) {
+    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;
+    }
+    push @cmd, '-d:Trace';
+}
 
 # Rebuild translations
@@ -114 +126 @@
     print <<"END_USAGE";
 Usage: $0
-        -h     show this help
-        -d     run Padre in the command line debugger (-d)
-    -t     write tracing information to .padre/debug.log
-        -p     profile using Devel::NYTProf
-        -a     load all plugins in the svn checkout
-        --die  add DIE handler
+        -h          show this help
+        -d          run Padre in the command line debugger (-d)
+    -t          write tracing information to .padre/debug.log
+        -p          profile using Devel::NYTProf
+        -a          load all plugins in the svn checkout
+        --die       add DIE handler
+        --fulltrace full sourcecode trace to STDERR
 
        LIST OF FILES    list of files to open