Used "no warnings 'redefine'".

diff --git a/lib/Nabeatsu.pm b/lib/Nabeatsu.pm
index 0fc2be5..c7f3eae 100644 (file)
--- a/lib/Nabeatsu.pm
+++ b/lib/Nabeatsu.pm
@@ -69,10 +69,11 @@ sub _hdlr_nabeatsu {
        my $build = undef;
 
        if ($nabeatsu =~ m/of\s+the\s+world/) {
-               local $SIG{__WARN__} = sub {  }; 
+               no warnings 'redefine';
 
                my $current_id = 0;
                my $index = 0;
+
                require MT::Builder;
                $build = \&MT::Builder::build;
                *MT::Builder::build = sub {
@@ -92,10 +93,12 @@ sub _hdlr_nabeatsu {
                };
        }
 
-       defined(my $result = $ctx->super_handler( $args, $cond ))
+       defined(my $result = $ctx->super_handler($args, $cond))
                or return $ctx->error($ctx->errstr);
 
        if ($build) {
+               no warnings 'redefine';
+
                *MT::Builder::build = $build;
        }