Clifford Wolf:

preserve cksums when running hosted_cpan.pl


git-svn-id: http://www.rocklinux.org/svn/rock-linux/trunk@5472 c5f82cb5-29bc-0310-9cd0-bff59a50e3bc

package/import/cpan/hosted_cpan.desc

@@ -87,7 +87,7 @@
 
 #if xpkg == cpan-html-entities
 [V] 1.29
-[D] 0 HTML-Parser-3.43.tar.gz http://www.cpan.org/modules/by-authors/id/G/GA/GAAS/
+[D] 943293431 HTML-Parser-3.43.tar.gz http://www.cpan.org/modules/by-authors/id/G/GA/GAAS/
 #endif
 
 #if xpkg == cpan-html-linkextractor

package/import/cpan/hosted_cpan.pl

@@ -44,6 +44,15 @@ while () {
 
 close F;
 
+my %cksum;
+if ( open(D, "<hosted_cpan.desc") ) {
+	while (<D>) {
+		next unless /^.D. (\d+) (\S+)/;
+		$cksum{$2} = $1;
+	}
+	close D;
+}
+
 open(F, "bzip2 -d < ../../../download/mirror/c/cpan_packages_20041221.txt.bz2 |") || die $!;
 open(D, ">hosted_cpan.desc") || die $!;
 open(S, ">hosted_cpan.sel") || die $!;
@@ -87,9 +96,11 @@ matched:
 
 	print "$key -> $mod -> cpan-$xmod\n";
 
+	my $cksum = defined $cksum{$f} ? $cksum{$f} : 0;
+
 	print D "#if xpkg == cpan-$xmod\n";
 	print D "[V] $ver\n";
-	print D "[D] 0 $f $cpanbase/$d\n";
+	print D "[D] $cksum $f $cpanbase/$d\n";
 	print D "#endif\n\n";
 
 	$f =~ s/\.gz$/.bz2/;