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