require fails when called from exception()

output.txt

$ ./test.t 
exception script.pl did not return a true value at ./test.t line 9.

$ perl --version
This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi

script.pl

#!/usr/bin/env perl
package X;

use strict;
use warnings;

sub f {
    return 1;
}

return f(); # if I replace this with direct 'return 1', error goes away

test.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::Fatal;

# if I replace exception() with my $f = sub { ... }, error goes away
my $e = exception(sub {
    require 'script.pl';
#    1;   # if I uncomment this line, error goes away
});

if (defined $e) {
    warn "exception $e";
}
else {
    warn "ok";
}