Changeset 11095

Timestamp:

05/04/08 19:51:18 (5 years ago)

Author:

tokuhirom

Message:

little bit more pretty output. thanks to ferreira++

Files:

• lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Plugin/DebugScreen.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Plugin/DebugScreen.pm

@@ -6 +6 @@
 around call_handler => sub {
     my ($next, @args) = @_;
-    local $SIG{__DIE__} = \&Carp::confess;
+    local $SIG{__DIE__} = \&_die;
     $next->(@args);
 };
@@ -20 +20 @@
 };
 
+# copied from Carp::Always. thanks ferreira++
+sub _die {
+    if ( $_[-1] =~ /\n$/s ) {
+        my $arg = pop @_;
+        $arg =~ s/ at .*? line .*?\n$//s;
+        push @_, $arg;
+    }
+    die &Carp::longmess;
+}
+
 1;