Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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).

 
______crazyinsomniac_____________________________
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;"


Comment on Re: warning: perl bug in 5.6.x, Win32 (use warnings and STDERR)
Download Code
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.

    Jenda
    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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (16)
As of 2015-07-31 16:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (279 votes), past polls