controlchan bug

[Kai Henningsen]

rra at stanford.edu (Russ Allbery)  wrote on 29.12.02 in <yly968mty9.fsf at windlord.stanford.edu>:

> Marco d'Itri <md at Linux.IT> writes:
>
> > This is the relevant code from control/checkgroups.pl:
>
> >     open(OLDIN, '<&STDIN') or die $!;
> >     open(OLDOUT, '>&STDOUT') or die $!;
> >     open(STDIN, "$tempfile.art") or die $!;
> >     open(STDOUT, ">$tempfile") or die $!;
> >     my $st = system("$inn::controlprogs/docheckgroups", $newsgrouppats);
> >     logdie('Cannot run docheckgroups: ' . $!) if $st == -1;
> >     logdie('docheckgroups returned status ' . ($st & 255)) if $st > 0;
> > +   close STDOUT;
> >     open(STDIN, '<&OLDIN') or die $!;
> >     open(STDOUT, '>&OLDOUT') or die $!;
>
> Thanks, applied.

Dumb question: shouldn't Perl do that all by its lonesome, two lines  
later?

MfG Kai