Suppress "Subroutine new redefined at Crypt/Monkeysphere/MSVA.pm line 81."

Following the suggestion given by `use diagnostics;`:

  (W redefine) You redefined a subroutine.  To suppress this warning, say

    {
    no warnings 'redefine';
    eval "sub name { ... }";
    }

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 6442fbbf9b90768ae642e71c4dee5d7650fb6156..c1e731dd196fb80c0e67c3b9a3d2b2ccd844a9f8 100755 (executable)
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -78,6 +78,7 @@
     return $logger->log(@_);
   };
 
+  no warnings 'redefine';
   sub new {
     my $class = shift;