I can't reproduce that behaviour with a simple tied filehandle:

#!/usr/bin/perl
use strict;
use warnings;

my $i = 10;

sub TIEHANDLE {
    return bless {}, 'main';
}

sub PRINT {
    my ($self, $str) = @_;
    print STDOUT "in PRINT: <<$str>>\n";
}

tie *STDERR, 'main';

warn "foo";
eval {
    $i->foo();
};
__END__
in PRINT: <<foo at test.pl line 18.
>>
[download]

In this case the error from within the eval doesn't get forwarded to PRINT.

Could you please provide an example that we can use to reproduce your error?