Oh, it was just a very minor bug. Patch is below - it adds a missing ; in
line 49:
--- mkcd.pl~ Wed Feb 21 10:41:04 2001
+++ mkcd.pl Wed Feb 21 11:18:06 2001
@@ -46,7 +46,7 @@
my ($key, $name) = /(([^\/]*)-[^-]*-[^-]*\.[^\/\.]*)\.rpm$/ or next;
$name{$name} and next;
my $n = $list{$name};
- push @{$rpms[$n]}, "$rep/Mandrake/RPMS/$_"
+ push @{$rpms[$n]}, "$rep/Mandrake/RPMS/$_";
$name{$name} = 1;
}
Alexander Skwar
--
How to quote: http://learn.to/quote (german) http://quote.6x.to (english)
Homepage: http://www.digitalprojects.com | http://www.iso-top.de
iso-top.de - Die guenstige Art an Linux Distributionen zu kommen
Uptime: 1 day 11 hours 15 minutes
