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 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';