Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6505
Modified Files:
Tag: branch_0_24
Configure.pm
Log Message:
cleanup
Index: Configure.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Configure.pm,v
retrieving revision 1.38.2.1
retrieving revision 1.38.2.2
diff -u -d -r1.38.2.1 -r1.38.2.2
--- Configure.pm 16 Apr 2005 17:21:16 -0000 1.38.2.1
+++ Configure.pm 16 Apr 2005 17:23:54 -0000 1.38.2.2
@@ -269,13 +269,10 @@
$current_value = $config->param("Mirror-$mirrorname");
$is_obsolete = 1;
$list_of_mirrors =
&read_properties_multival("$libpath/mirror/$mirrorname");
-# print "\n mirrorname: $mirrorname, current value:
$current_value\n";
foreach $property_value (values %{$list_of_mirrors}) {
foreach $mirror_item (@{$property_value}) {
-# print " $mirror_item ";
if ($current_value eq $mirror_item) {
$is_obsolete = 0;
-# print "current value
$current_value; mirrorname $mirrorname \n";
}
}
}
@@ -285,7 +282,6 @@
}
}
-# print "obsolete mirrors\n %obsolete_mirrors \n";
if (!$missing) {
if ($mirrors_postinstall) {
@@ -377,7 +373,6 @@
if ($obsolete_only) {
@mirrors_to_choose = keys %obsolete_mirrors;
-# print "mirrors to choose @mirrors_to_choose\n";
} else {
@mirrors_to_choose = split(/\s+/, $listinfo->{order});
}
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
