Re: Bug in eval in pre-5.14

[zwon]

Note that Try::Tiny doesn't provide more than the "or do" pattern

It actually does, it preserves the value of $@, the following modifications to your script demonstrate the difference:

...;
eval { die "Foo!" };

# Exception details lost.
eval {
    my $o2 = 'My::Obj'->new;
    die "Exception!";
1 } or do {
    warn "Caught with or: $@";
};

say "\$\@ after eval or do: $@";

# not same as above.
use Try::Tiny;

eval { die "Foo!" };

try {
    my $o3 = 'My::Obj'->new;
    die "Exception!";
} catch {
    warn "Caught with Try::Tiny: $_";
};

say "\$\@ after try catch: $@";

[choroba]

Solvable by localizing $@:

eval { die "Foo!" };

# Exception details not lost.
{   local $@;
    eval {
        my $o2 = 'My::Obj'->new;
        die "Exception!";
        1 } or do {
            warn "Caught with or: $@";
        };
}

warn "\$\@ after eval or do: $@";