Help for this page

Select Code to Download

Select or download this

496: sub init {
...
516:  for my $fh (grep {defined(fileno($_))} @$val) {
517:    seek($fh,0,0); # reset the filehandle.
518:  }

Select or download this

#!/usr/bin/perl -T

use strict;
...
for my $fh (grep {defined(fileno($_))} @$val) {
  seek($fh,0,0); # reset the filehandle.
}