Why doesn't Perl's eval catch problems from Test::Cmd::Common-unlink?

Question

I have the following perl code : ``` use strict; use warnings; use Test::Cmd::Common; my $path = "/something/not/available"; my $test = Test::Cmd::Common->new(string => 'File system operations'); eval{ $test->unlink("$path"); }; ok(!$@, "file unlike"); print "done.
"; ``` The $test->unlink() line will fail and throw exception. but the problem : eval is not handling that exception and the code execution is being interrupted. the output : ``` $ perl test.pl could not unlink files (/something/not/available): No such file or directory NO RESULT for test at line 561 of /home/y/lib/perl5/site_perl/5.8/Test/Cmd/Common.pm (Test::Cmd::Common::unlink) from line 9 of test.pl. ``` Is eval doing the right job here? or I am misunderstanding something? F.

Accepted Answer

From documentation of Test::Cmd::Common: "Removes the specified files. Exits NO RESULT if any file could not be removed for any reason.". And by looking at source, Test::Cmd::Common calls Test::Cmd->no_result, which really does

```
exit (2);
```

"exit" cannot be trapped by eval, so it is expected behavior.

Why doesn't Perl's eval catch problems from Test::Cmd::Common->unlink?

Solution

Problem