After fixing the compile errors, eval properly catches the exceptions.

use File::Find;

my @dirlist = ('.', '.', 'nonexistant');

foreach my $dir (@dirlist){
        eval { find( \&wanted, $dir ) }; # Does NOT work when passing 
+a reference to foo to the find module

#       eval { bar() }; # DOES work when just calling a subroutine dir
+ectly

        if( $@ ){
                print "$dir had error: ".$@;
        } else {
                print "processed $dir\n";
        }
}

sub wanted{
        die "haha!";
}

sub bar{
        die "haha!";
}
[download]

. had error: haha! at a.pl line 18.
. had error: haha! at a.pl line 18.
processed nonexistant
[download]

In what way does it not work for you? Could it be that your version of F::F actually catches the exceptions?