push our @CARP_NOT, 'File::Find';

##</code><code>##

find(\&wanted, '.'); #line 22
__END__

##</code><code>##

#!/opt2/perl/bin/perl
use strict;
use warnings;
use Carp;
use File::Find;

sub err {
    croak ("You did something bad!"); #line 8
}

sub wanted {
  err(); #line 12
}
push our @CARP_NOT, 'File::Find';
find(\&wanted, '.'); #line 15
__END__

##</code><code>##

$ ./ff_carp.pl
You did something bad! at ./ff_carp.pl line 8
        main::err() called at ./ff_carp.pl line 12
        main::wanted() called at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/
Find.pm line 810
        File::Find::_find_dir('HASH(0x13e8d4)', ., 2) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 690
        File::Find::_find_opt('HASH(0x13e8d4)', .) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x15e498)', .) called at ./ff_carp.pl
line 15

##</code><code>##

push our @CARP_NOT, 'File::Find';

##</code><code>##

find(\&wanted, '.'); #line 22
__END__

##</code><code>##

#!/opt2/perl/bin/perl
use strict;
use warnings;
use Carp;
use File::Find;

sub err {
    croak ("You did something bad!"); #line 8
}

sub wanted {
  err(); #line 12
}
push our @CARP_NOT, 'File::Find';
find(\&wanted, '.'); #line 15
__END__

##</code><code>##

$ ./ff_carp.pl
You did something bad! at ./ff_carp.pl line 8
        main::err() called at ./ff_carp.pl line 12
        main::wanted() called at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/
Find.pm line 810
        File::Find::_find_dir('HASH(0x13e8d4)', ., 2) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 690
        File::Find::_find_opt('HASH(0x13e8d4)', .) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x15e498)', .) called at ./ff_carp.pl
line 15

##</code><code>##

{
    package CarpCatcher;
    use Carp;
    sub wanted {
      err(); #line 12
    }

    sub err {
        croak ("You did something bad!");
    }

    push our @CARP_NOT, 'File::Find';
}

use File::Find;

find(\&CarpCatcher::wanted, '.');

__END__