Hello,

Recently I noticed that dev-perl/Net-SSLeay is behind one release, and
wondered why it wasn't showing up in the weekly "Perl ebuilds needing
updates" emails.

Sometimes the CPAN package list contains lines like:

[...]
Net::SSLeay                        1.30  F/FL/FLORA/Net_SSLeay.pm-1.30.tar.gz
Net::SSLeay::Handle                0.61  S/SA/SAMPO/Net_SSLeay.pm-1.25.tar.gz
[...]

When up2date-ng iterates through the list, it assumes it will see the
highest version number last.  Attached is a patch to take into account
the rather odd way CPAN indexes packages...

-- 
Daniel Westermann-Clark

Auto-merging (0, 15093) /local/up2date-ng to /mirror/gentoo-perl/up2date-ng/trunk (base /mirror/gentoo-perl/up2date-ng/trunk:15055).
Patching locally against mirror source http://anonsvn.gentoo.org/repositories/gentoo-perl.
U   bin/up2date-ng.pl
==== Patch <-> level 1
Source: 20164c6d-cd09-0410-925d-b4c4e616b846:/local/up2date-ng:15093
Target: bfaec0a9-f8f8-0310-9c7b-c76e7ff872dc:/up2date-ng/trunk:111
        (http://anonsvn.gentoo.org/repositories/gentoo-perl)
Log:
 r15086@fortuna:  dwc | 2007-02-03 13:52:24 -0500
 Creating local branch
 r15093@fortuna:  dwc | 2007-02-03 18:44:36 -0500
 Don't replace versions from CPAN if they're older than the one we've got

=== bin/up2date-ng.pl
==================================================================
--- bin/up2date-ng.pl	(revision 111)
+++ bin/up2date-ng.pl	(patch - level 1)
@@ -689,9 +689,11 @@
 					}
 					
 					if ($cpan_version eq "") { $cpan_version=0; }
-					
-					$modules{'cpan'}{$cpan_pn} = $cpan_version;
-					$modules{'cpan_lc'}{lc($cpan_pn)} = $cpan_version;
+
+					if (! exists($modules{'cpan'}{$cpan_pn}) || $modules{'cpan'}{$cpan_pn} < $cpan_version) {
+						$modules{'cpan'}{$cpan_pn} = $cpan_version;
+						$modules{'cpan_lc'}{lc($cpan_pn)} = $cpan_version;
+					}
 				}
 			}
 		}

==== BEGIN SVK PATCH BLOCK ====
Version: svk v2.0.0 (linux)

eJyNk81u1DAQx/faPfAMRqTa7iHUdhLno3S1qMAFqSqicA2OM9mNmsaR4922qiuxb8KbwKPAm+Ak
XVoELUSR/DX/38zYM2/U6cGcmNkMG4dg8/7j2yQ54Vosd4lvHGYgL7VUTmAqWEPleKaSC8c3NT8H
e9rKlRLdRHO1AN1NSnEGejYjFhcNuNc9YovtqRnXsm6duMenWgE4xHhz38y97k8dEpsW7EmPTRWs
y7aUtQ2DBDj2rIm1J1YvG6hTJaW2kREvntNOi42oZAtpB7c786Czpo5NqDfPSwXCRnRlNVlZ96RB
3XsObtV3ZtbgF8bbOi3KygYddoT9VUNzrsGtF8+bqvf1Dx4deP0pb5rqKtVwqXOoNO99eNQIFjEQ
lEJMo7yAOGYiYplPKQZKi4I41Avt/R6PRpvvnzY/jp5s3o02X4PRZzt+Odx8ezbe6b6yQHtPEVyW
rW73nHOZryporyei4fXk5trpxrSpb6bIGPTwMXqBhvkaVPcQU3Q94Hce0Rz+rjn4qyKthBVVYm+r
mz4kvLHlce9xh/sf7ioIo4iQiAseYoj9IsqyiBdxwMLIpyTG/ROTODRI2fqJ2LyQSq9qniCUXwhk
EMU4dDF1sYeIlwQ0oT5ycYDxGB0p4LqsF6iSglcoU7wWy3EPsoX4GChKfD/x2Bb0StYTjRQ0FReA
bnNrUaHkOTo6eXmM7FPpJVxNFCBZ5aDsitfdFpI1oAuYrAEtpB7bbNzZjBqH0qHBTvsuSZIPddlh
ebXLjO3RhuulLUTbPHaxWpV5V677fRr3KnbbU47HDMWE+YLlrshx7GKfYDemQe5mvvCBEZZFPptN
qXmMf0fe12pVn3WtQEhHzwoOAvPYLaIisjfU0UWYuSJkEBZFFNJcOAz/VxTJH3kkfRY/AcUBg8A=
==== END SVK PATCH BLOCK ====