Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^4: Experimental warnings with given/when

by Bod (Curate)
on Dec 01, 2020 at 12:24 UTC ( #11124452=note: print w/replies, xml ) Need Help??

in reply to Re^3: Experimental warnings with given/when
in thread Experimental warnings with given/when

Are you sure?

I thought I was but I set up a little test to make sure I was sure and now I am not...

use feature "switch"; # Redirect STDERR open my $err_fh, '>', 'stderr.log'; *STDERR = $err_fh; # Redirect STDERR open my $out_fh, '>', 'stdout.log'; *STDOUT = $out_fh; my $i; given($i) { print "$i\n" when $i < 4; } # Prove STDERR is redirected my $error = 10 / 0;

Illegal division by zero at line 15. is the only thing that is written to STDERR and 3 gets written to STDOUT but the following still gets displayed on the command prompt:

C:\Users\ian\Perl>perl given is experimental at line 10. when is experimental at line 11. C:\Users\ian\Perl>

So I am not really sure what is going on with output streams as the warnings are on neither STDERR nor STDOUT.

This is using Perl v5.28.1

Replies are listed 'Best First'.
Re^5: Experimental warnings with given/when
by hippo (Bishop) on Dec 01, 2020 at 13:40 UTC
    the following still gets displayed on the command prompt

    Those are compile-time warnings. They are generated before your run-time massaging of STDOUT and STDERR have taken effect. In contrast, I used the calling shell to set up the redirection so it is clear there that these warnings go to STDERR.


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2022-05-29 10:42 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (101 votes). Check out past polls.