v1.1, r301 - Fix REV var
authorDan Boger <zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:26:46 +0000 (12:26 -0800)
committerDan Boger <zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:26:46 +0000 (12:26 -0800)
twirssi.pl

index 93cb8963e8f44d9aceea2c8e16563bc953e68bb8..7c096d571d558e9fd189651425e5c97d3e392c46 100644 (file)
@@ -10,7 +10,7 @@ use vars qw($VERSION %IRSSI);
 use constant { DEBUG => 0 };
 
 $VERSION = "1.1";
 use constant { DEBUG => 0 };
 
 $VERSION = "1.1";
-my $REV = '$Rev: 300 $';
+my ($REV) = '$Rev: 301 $' =~ /(\d+)/;
 %IRSSI   = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',
 %IRSSI   = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',