Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

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

Select or download this

$ ./ff_carp.pl croak 0
You did something bad! at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/Find.pm
line 810

Select or download this

$ ./ff_carp.pl croak 1
You did something bad! at ./ff_carp.pl line 22

Select or download this

$ ./ff_carp.pl confess 0
You did something bad! at ./ff_carp.pl line 14
...
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x1b66d0)', .) called at ./ff_carp.pl
line 22

Select or download this

$ ./ff_carp.pl confess 1
You did something bad! at ./ff_carp.pl line 19
...
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x1b66d0)', .) called at ./ff_carp.pl
line 22

Select or download this

#!/usr/bin/perl
use strict;
...
sub wanted {
  err(); #line 19
}

Select or download this
```
push our @CARP_NOT, 'File::Find';
```
Select or download this
```
find(\&wanted, '.'); #line 22
__END__
```