Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

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

by tye (Sage)
on Oct 03, 2013 at 17:08 UTC ( #1056777=note: print w/replies, xml ) Need Help??

in reply to Re: exports -- which module exports are used?
in thread exports -- which module exports are used?

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.

- tye        

Replies are listed 'Best First'.
Re^3: exports -- which module exports are used? ($.)
by toolic (Bishop) on Oct 03, 2013 at 17:24 UTC
    Thanks for the patch.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1056777]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2016-10-01 19:29 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (6 votes). Check out past polls.