Changeset 14443 for lang/perl/App-MadEye

Timestamp:

06/23/08 11:06:17 (5 months ago)

Author:

tokuhirom

Message:

show plugin name

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Base.pm (modified) (1 diff)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Base.pm

@@ -11 +11 @@
 
     if (my $schema = get_schema_from_pod($self)) {
+        local $SIG{__DIE__} = sub { die "$self: @_" };
         Kwalify::validate($schema, $self->config->{config});
     }