use Irssi::Irc;
use vars qw{$VERSION %IRSSI};
-($VERSION) = ' $Revision: 1.3 $ ' =~ / (\d+\.\d+) /;
+($VERSION) = ' $Revision: 1.3.1 $ ' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'autochannel',
authors => 'Peder Stray',
use Irssi::Irc;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.5 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.5.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'chansort',
authors => 'Peder Stray',
use strict;
use Irssi;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.4.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'dccmove',
authors => 'Peder Stray',
use Irssi::TextUI;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.34 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.34.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'friends',
authors => 'Peder Stray',
use Irssi::Irc;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.19 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.19.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'keepnick',
authors => 'Peder Stray',
use vars qw($class $oldclass);
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.11 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.11.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'log2ansi',
authors => 'Peder Stray',
use Text::Abbrev;
use POSIX;
-#use Data::Dumper;
-
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.26 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.26.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'query',
authors => 'Peder Stray',
use Irssi::TextUI;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.7 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.7.1 $' =~ / (\d+(\.\d+) /;
%IRSSI = (
name => 'upgradeinfo',
authors => 'Peder Stray',
use Irssi::TextUI;
use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.6 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.6.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'uptime',
authors => 'Peder Stray',