#!/usr/bin/perl -l
use IO::Scalar;
my $x = "";
{
    local *STDERR;
    tie *STDERR, 'IO::Scalar', \$x;
    print STDERR "foo";
    untie *STDERR
}
print STDERR "bar";
print "caught: $x";

__END__
bar
caught: foo
[download]

#!/usr/bin/perl -l
use IO::Scalar;
my $x = "";
{
    local *STDERR;
    tie *STDERR, 'IO::Scalar', \$x;
    print STDERR "foo";
}
print STDERR "bar";
print "caught: $x";

__END__
caught: foobar
[download]

So question one: what the heck? Do tie and local just not play well together?

And question two: is there a way to do this? (I'd think that my intent here is pretty obvious.) I've tried several variants on the above, and I know that I can just change it so that it evals everything in the local scope (so that I can manually untie afterwards without worrying that an exception broke out of that block and left me no oppportunity to untie). But still I'm curious.

Thanks

------------
:Wq
Not an editor command: Wq
[download]