Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: warning: perl bug in 5.6.x, Win32 (use warnings and STDERR)

by crazyinsomniac (Prior)
on Mar 21, 2003 at 11:28 UTC ( #244830=note: print w/replies, xml ) Need Help??

in reply to warning: perl bug in 5.6.x, Win32 (use warnings and STDERR)

Not really. Try
open(ME, "$0") or die "crap $!"; close(STDERR); use warnings; while (<ME>) { print; } close ME;
So it would appear there is a bug only if you close(STDERR); and use warnings; before you do a open.

This definetly warrants a look-see by the perl 5 porters (p5p).

Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Replies are listed 'Best First'.
Re: Re: warning: perl bug in 5.6.x, Win32 (use warnings and STDERR)
by Jenda (Abbot) on Mar 21, 2003 at 13:42 UTC

    I tried to play with this a little more. It only prints the first line even if you remove the use warnings and run the script with perl -w or if you set the $^W.

    close(STDERR); open(ME, "$0"); $^W=1; while (<ME>) { print; } close ME;

    It fails even if you put the $^W=1; inside the loop, but you always have to close the STDERR before opening the file.

    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
       -- Rick Osborne

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2022-10-05 16:34 GMT
Find Nodes?
    Voting Booth?
    My preferred way to holiday/vacation is:

    Results (24 votes). Check out past polls.