1use strict; 2use vars qw($VERSION %IRSSI); 3 4use Irssi qw(signal_add_last settings_add_bool settings_add_str 5 settings_get_bool settings_get_str); 6$VERSION = '1.00'; 7%IRSSI = ( 8 authors => 'Juerd', 9 contact => 'juerd@juerd.nl', 10 name => 'German Uppercased Tab Stuff', 11 description => 'Adds the uppercased version of the tab completes', 12 license => 'Public Domain', 13 url => 'http://juerd.nl/irssi/', 14 changed => 'Sat May 18 21:40 CET 2002', 15); 16 17signal_add_last 'complete word' => sub { 18 my ($complist, $window, $word, $linestart, $want_space) = @_; 19 push @$complist, ucfirst $word; 20} 21 22