[Lxr-commits] CVS: lxr/lib/LXR/Files CVS.pm,1.29,1.30

[Dave B. <bro...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Files
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29832/lib/LXR/Files

Modified Files:
	CVS.pm 
Log Message:
sort CVS revisions intelligently

Index: CVS.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/CVS.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- CVS.pm	20 Jul 2004 20:40:21 -0000	1.29
+++ CVS.pm	21 Jul 2004 14:08:38 -0000	1.30
@@ -374,12 +374,25 @@
 	}
 }
 
+# sort by CVS version
+#   split rev numbers into arrays
+#   compare each array element, returning as soon as we find a difference
+sub byrevision {
+	my @one = split /\./, $a;
+	my @two = split /\./, $b;
+	for (my $i = 0; $i <= $#one; $i++) {
+		my $ret = $one[$i] <=> $two[$i];
+		return $ret if $ret;
+	}
+	return $#one <=> $#two;		# if still no difference after we ran through all elements of @one, compare the length of the array
+}
+
 sub allrevisions {
 	my ( $self, $filename ) = @_;
 
 	$self->parsecvs($filename);
 
-	return sort( keys( %{ $cvs{'branch'} } ) );
+	return sort byrevision keys( %{ $cvs{'branch'} } );
 }
 
 sub parsecvs {