Changeset 24300

Timestamp:

11/19/08 19:40:51 (5 years ago)

Author:

kazuho

Message:

add compile error example

Location:

lang/perl/NanoA/trunk

Files:

• app/example/compile_error.pm (added)
• lib/NanoA/DebugScreen.pm (modified) (1 diff)
• nanoa.pl (modified) (1 diff)

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

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

lang/perl/NanoA/trunk/nanoa.pl

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