On Tue, Feb 06, 2007 at 08:45:28AM -0200, Otavio Salvador wrote:
>From: Otavio Salvador <[EMAIL PROTECTED]>
>
>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.                                [EMAIL PROTECTED]
"...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

Reply via email to