Update of /cvsroot/fink/dists
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv22851
Modified Files:
compare-trees.pl
Log Message:
Actually check on number of hash entries, on not on hash scalar value.
Index: compare-trees.pl
===================================================================
RCS file: /cvsroot/fink/dists/compare-trees.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- compare-trees.pl 19 Jun 2006 20:12:11 -0000 1.13
+++ compare-trees.pl 23 Oct 2008 15:33:06 -0000 1.14
@@ -132,7 +132,7 @@
for my $version (sort keys
%{$PACKAGES{$package}->{version}}) {
$output .= sprintf(' %-20s ', $version);
$output .= join(", ",
@{$PACKAGES{$package}->{version}->{$version}});
- if (%{$PACKAGES{$package}->{md5s}->{$version}}
> 1 and not defined $opt_d) {
+ if (keys
%{$PACKAGES{$package}->{md5s}->{$version}} > 1 and not defined $opt_d) {
$output .= " (md5's don't match)\n";
for my $md5sum (sort keys
%{$PACKAGES{$package}->{md5s}->{$version}}) {
$output .= " " x 27 . $md5sum .
": ";
@@ -165,7 +165,7 @@
for my $version (sort keys
%{$PACKAGES{$maint}->{$package}->{version}}) {
$output .= sprintf(' %-20s ',
$version);
$output .= join(", ",
@{$PACKAGES{$maint}->{$package}->{version}->{$version}});
- if
(%{$PACKAGES{$maint}->{$package}->{md5s}->{$version}} > 1 and not defined
$opt_d) {
+ if (keys
%{$PACKAGES{$maint}->{$package}->{md5s}->{$version}} > 1 and not defined
$opt_d) {
$output .= " (md5's don't
match)\n";
for my $md5sum (sort keys
%{$PACKAGES{$maint}->{$package}->{md5s}->{$version}}) {
$output .= " " x 27 .
$md5sum . ": ";
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
