Fix a warning that gets triggered when the only input is the command_char

git-svn-id: svn://svn.code.sf.net/p/xchat/svn@1388 893a96be-7f27-4fdf-9d1e-6aeec9d3cce1

diff --git a/plugins/perl/alt_completion.pl b/plugins/perl/alt_completion.pl
index ebddeaad15ff2f47f0974c94c174f9c7ccc92546..5e679233a325e51621618c3ded2284dc66580ad7 100644 (file)
--- a/plugins/perl/alt_completion.pl
+++ b/plugins/perl/alt_completion.pl
@@ -346,7 +346,8 @@ sub focus_tab {
 # by the completion suffix
 sub track_selected {
        my $input = $_[1][0];
-       
+       return Xchat::EAT_NONE unless defined $input;
+
        my $suffix = Xchat::get_prefs( "completion_suffix" );
        for( grep defined, $input =~ /^(.+)\Q$suffix/, $_[0][0] ) {
                if( in_channel( $_ ) ) {