aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3025 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-11-23 16:40:45 +00:00 committed by cras
parent d674106757
commit dae3d7be8b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scripts/scriptassist.pl
View File

@ -6,7 +6,7 @@
use strict; use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = '2002112201'; $VERSION = '2002112301';
%IRSSI = ( %IRSSI = (
authors => 'Stefan \'tommie\' Tomanek', authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de', contact => 'stefan@pico.ruhr.de',
@ -814,11 +814,12 @@ sub compare_versions ($$) {
my ($ver1, $ver2) = @_; my ($ver1, $ver2) = @_;
my @ver1 = split /\./, $ver1; my @ver1 = split /\./, $ver1;
my @ver2 = split /\./, $ver2; my @ver2 = split /\./, $ver2;
if (scalar(@ver2) != scalar(@ver1)) { #if (scalar(@ver2) != scalar(@ver1)) {
return 0; # return 0;
} #}
my $cmp = 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 'newer' if $cmp == 1;
return 'older' if $cmp == -1; return 'older' if $cmp == -1;
return 'equal'; return 'equal';