Re^3: Saving STDERR and displaying it later


There's more than one way to do things
	PerlMonks

Re^3: Saving STDERR and displaying it later

by leriksen (Curate)

on Jul 03, 2006 at 23:43 UTC ( [id://559062]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Saving STDERR and displaying it later
in thread Saving STDERR and displaying it later

If you dont want to introduce a dependency on IO::Capture::Stderr, and you only want to capture the STDERR from the die() calls, you could try this

my @dieings;

sub my_die() {
    # localise capture to just my_die() calls...
    local $SIG{__DIE__} = sub {
        push(@dieings, @_);
    };

    die(@_);
}
#... time passes
my_die("now we need to capture");
#... time passes
print "now we need to report " . Dumper(\@dieings);
[download]

It may be possible to replace die() with this at compile time, I've never tried the *CORE::GLOBAL trick with die(), only open(). I know there are some perl functions where not even compile-time replacement works, die() might be one of those.

...reality must take precedence over public relations, for nature cannot be fooled. - R P Feynmann