r63228@onn: sartak | 2008-06-25 05:01:43 -0400

 Fix the "only warn about term once" logic

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

diff --git a/lib/Devel/REPL/Plugin/Completion.pm b/lib/Devel/REPL/Plugin/Completion.pm
index 05fca4f..ebafa2e 100644 (file)
--- a/lib/Devel/REPL/Plugin/Completion.pm
+++ b/lib/Devel/REPL/Plugin/Completion.pm
@@ -27,7 +27,7 @@ has no_term_class_warning => (
 before 'read' => sub {
   my ($self) = @_;
 
-  unless ($self->term->isa("Term::ReadLine::Gnu") and !$self->no_term_class_warning) {
+  if (!$self->term->isa("Term::ReadLine::Gnu") and !$self->no_term_class_warning) {
     warn "Term::ReadLine::Gnu is required for the Completion plugin to work";
     $self->no_term_class_warning(1);
   }