Changeset 24463

Timestamp:

11/20/08 17:31:22 (7 weeks ago)

Author:

tokuhirom

Message:

upgrade to CGI::ExceptionManager? 0.02

Location:

lang/perl/MENTA/trunk/extlib/CGI

Files:

• ExceptionManager.pm (modified) (2 diffs)
• ExceptionManager/StackTrace.pm (modified) (1 diff)

lang/perl/MENTA/trunk/extlib/CGI/ExceptionManager.pm

@@ -3 +3 @@
 use warnings;
 use 5.00800;
-our $VERSION = '0.01';
-use CGI::ExceptionManager::StackTrace;
+our $VERSION = '0.02';
 
 sub detach { die bless [], 'CGI::ExceptionManager::Exception' }
+
+my $stacktrace_required;
 
 sub run {
@@ -17 +18 @@
             undef $err_info;
         } else {
+            unless ($stacktrace_required) {
+                require CGI::ExceptionManager::StackTrace;
+                $stacktrace_required = 1;
+            }
             $err_info = CGI::ExceptionManager::StackTrace->new($msg);
         }

lang/perl/MENTA/trunk/extlib/CGI/ExceptionManager/StackTrace.pm

@@ -30 +30 @@
         }
     }
-    if ($message =~ / at ([^ ]+) line (\d+)\./
+    if ($message =~ / at ([^ ]+) line (\d+)/
             && ($1 ne $trace[0]->{file} || $2 != $trace[0]->{line})) {
         unshift @trace, {