r80566@dhcp117: nothingmuch | 2008-05-14 19:50:52 +0900

 STFU about uninitialized

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4383 bd8105ee-0ff8-0310-8827-fb3f25b6796d

diff --git a/lib/Devel/REPL/Plugin/Colors.pm b/lib/Devel/REPL/Plugin/Colors.pm
index 17592b8..2fc6e93 100644 (file)
--- a/lib/Devel/REPL/Plugin/Colors.pm
+++ b/lib/Devel/REPL/Plugin/Colors.pm
@@ -26,6 +26,7 @@ around format_error => sub {
 around format_result => sub {
   my $orig = shift;
   my $self = shift;
+  no warnings 'uninitialized';
   return join "", (
     color($self->normal_color),
     $orig->($self, @_),