+{
+ my $z = 0;
+ my $reaped = 0;
+ eval {
+ reap { $reaped = 1 };
+ is $reaped, 0, 'died of natural death - not reaped yet';
+ my $res = 1 / $z;
+ };
+ my $err = $@;
+ is $reaped, 1, 'died of natural death - reaped';
+ like $err, qr/division by zero/, 'died of natural death - divided by zero';
+}
+