my @a = @{ $v1->version };
my @b = @{ $v2->version };
- while (@a or @b) {
- my $x = shift(@a) || 0;
- my $y = shift(@b) || 0;
+ while (@a and @b) {
+ my $x = shift @a;
+ my $y = shift @b;
my $c = $x <=> $y;
return $c if $c;
}
+
+ return 1 if @a;
+ return -1 if @b;
}
{