Re^2: exports -- which module exports are used? ($.)

[tye]

There is probably a better solution, and I suspect it has something to do with the seek.

Indeed. This is how I've fixed it:

    $. = 0;
    seek $fh, 0, 0
        or  die "Can't rewind handle to $file: $!\n";

(Updated: Actually, you also have to move that code so that it gets run before 'print' (for example) gets called, which is required else $. would be tied to STDOUT.)

Alternately, you can do:

    {  my $eof = <$fh>;  $. = 0;  }
    seek...

Or I could just open the file twice.

[toolic]

Thanks for the patch.