summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2002-11-23 16:40:45 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2002-11-23 16:40:45 +0000
commitdae3d7be8b8018f34e64c2cccb5e4e2f4d363220 (patch)
tree1779f097cf4cf0495499ba7081bd93cfe841122c
parentd674106757b405309fa5c586cf7a365e44f6d98e (diff)
downloadirssi-dae3d7be8b8018f34e64c2cccb5e4e2f4d363220.zip
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3025 dbcabf3a-b0e7-0310-adc4-f8d773084564
-rw-r--r--scripts/scriptassist.pl11
1 files changed, 6 insertions, 5 deletions
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl
index 6a2f791e..ad72f9a9 100644
--- a/scripts/scriptassist.pl
+++ b/scripts/scriptassist.pl
@@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION %IRSSI);
-$VERSION = '2002112201';
+$VERSION = '2002112301';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
@@ -814,11 +814,12 @@ sub compare_versions ($$) {
my ($ver1, $ver2) = @_;
my @ver1 = split /\./, $ver1;
my @ver2 = split /\./, $ver2;
- if (scalar(@ver2) != scalar(@ver1)) {
- return 0;
- }
+ #if (scalar(@ver2) != scalar(@ver1)) {
+ # return 0;
+ #}
my $cmp = 0;
- $cmp ||= $ver1[$_] <=> $ver2[$_] for 0..scalar(@ver2);
+ ### Special thanks to Clemens Heidinger
+ $cmp ||= $ver1[$_] <=> $ver2[$_] || $ver1[$_] cmp $ver2[$_] for 0..scalar(@ver2);
return 'newer' if $cmp == 1;
return 'older' if $cmp == -1;
return 'equal';