On Tue, Feb 06, 2007 at 08:45:28AM -0200, Otavio Salvador wrote:
>From: Otavio Salvador <otavio@ossystems.com.br>
>
>diff --git a/tools/list2cds b/tools/list2cds
>index 78ec89f..427d814 100755
>--- a/tools/list2cds
>+++ b/tools/list2cds
>@@ -107,6 +107,16 @@ if (not $nonus) {
> }
> }
>
>+open (EXCLUDE_LIST, "< $exclude") || die "Can't open $exclude : $!\n";
>+while (defined($_=<EXCLUDE_LIST>)) {
>+ chomp;
>+ next if m/^\s*$/;
>+ next if $excluded{$_};
>+ $excluded{$_} = 'list';
>+ $count_excl++;
>+}
>+close EXCLUDE_LIST;
>+
> msg(1, "Statistics:
> Number of packages: @{ [scalar(keys %packages)] }
> Number of excluded: $count_excl of @{ [scalar(keys %excluded)] }
Shouldn't be needed - make_disc_trees now does all the
exclude/unexclude work, which was a deliberate choice. It needs to
know what has been excluded in case you *un*exclude packages on later
discs.
--
Steve McIntyre, Cambridge, UK. steve@einval.com
"...In the UNIX world, people tend to interpret `non-technical user'
as meaning someone who's only ever written one device driver." -- Daniel Pead
Attachment:
signature.asc
Description: Digital signature