Changeset 24314 for lang/perl/NanoA

Timestamp:

11/19/08 20:28:51 (5 years ago)

Author:

kazuho

Message:

there seems no good way to go, revert to 24298

Location:

lang/perl/NanoA/trunk

Files:

• lib/NanoA/DebugScreen.pm (modified) (1 diff)
• nanoa.pl (modified) (1 diff)

lang/perl/NanoA/trunk/lib/NanoA/DebugScreen.pm

@@ -25 +25 @@
     } 0..$#trace;
     
-    +{ message => $msg, trace => \@trace };
+    output({ message => $msg, trace => \@trace });
+    exit 0;
 }
 

lang/perl/NanoA/trunk/nanoa.pl

@@ -12 +12 @@
 do {
     local $@;
-    my $err_info;
     local $SIG{__DIE__} = sub {
-        die @_
+        die $_[0]
+            if caller() eq 'Encode';
+        die $_[0]
             if ref $_[0] eq 'HASH' && $_[0]->{finished};
-        $err_info = NanoA::DebugScreen::build(@_);
+        NanoA::DebugScreen::build(@_);
     };
     eval {
         NanoA::Dispatch->dispatch();
     };
-    if ($@ && $err_info) {
-        NanoA::DebugScreen::output($err_info);
+    if ($@ && ref $@ eq 'HASH' && $@->{finished}) {
+        # just ignore
     }
 };