Avoid undefined value warnings when trying to tab-complete

nothingness. dreamer on irc.perl.org #poe reported the problem, with a useful test case.
rcaputo · Mar 9, 2010 · a76320c · a76320c
1 parent 2ea0337
commit a76320c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/POE/Wheel/ReadLine.pm b/lib/POE/Wheel/ReadLine.pm
@@ -2221,7 +2221,7 @@ sub _complete_match {
   my ($self) = @_;
   my $lookfor = substr($self->[SELF_INPUT], 0, $self->[SELF_CURSOR_INPUT]);
   $lookfor =~ /(\S+)$/;
-  $lookfor = $1;
+  $lookfor = defined($1) ? $1 : "";
   my $point = $self->[SELF_CURSOR_INPUT] - length($lookfor);
 
   my @clist = ();
@@ -2281,7 +2281,7 @@ sub rl_complete {
 
   my $lookfor = substr($self->[SELF_INPUT], 0, $self->[SELF_CURSOR_INPUT]);
   $lookfor =~ /(\S+)$/;
-  $lookfor = $1;
+  $lookfor = defined($1) ? $1 : "";
   my $point = $self->[SELF_CURSOR_INPUT] - length($lookfor);
   my @poss = $self->_complete_match;
   if (scalar @poss == 0) {