From: Sartak <Sartak@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Wed, 25 Jun 2008 09:01:58 +0000 (+0000)
Subject:  r63228@onn:  sartak | 2008-06-25 05:01:43 -0400
X-Git-Tag: v1.003015~82
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c4fddb350dfc5c966414fa8ce43afce323573a8;p=p5sagit%2FDevel-REPL.git

 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
--- 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);
   }