Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
String eval works again on 5.10. Huzzah.
  • Loading branch information
pjf committed Jul 6, 2009
1 parent b5306ff commit 3547320
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 12 deletions.
3 changes: 2 additions & 1 deletion Changes
Expand Up @@ -10,7 +10,8 @@ Revision history for autodie
this.

* BUGFIX: autodie once again correctly works when used
inside a string eval on Perl 5.8.x.
inside a string eval. (This was accidently broken
somewhere around 1.997-1.998).

2.05 Sat Jul 4 16:33:01 AUSEST 2009

Expand Down
14 changes: 3 additions & 11 deletions t/string-eval-basic.t
Expand Up @@ -19,14 +19,6 @@ my $result = eval q{
1;
};

TODO: {
local $TODO;

if ($] >= 5.010) {
$TODO = "autodie doesn't work inside string evals on 5.10.x";
}

ok( ! $result, "Eval should fail with autodie/no such file");
ok($@, "enabling autodie in string eval should throw an exception");
isa_ok($@, 'autodie::exception');
}
ok( ! $result, "Eval should fail with autodie/no such file");
ok($@, "enabling autodie in string eval should throw an exception");
isa_ok($@, 'autodie::exception');

0 comments on commit 3547320

Please sign in to comment.