Help for this page

Select Code to Download

Select or download this

eval { Carp::confess("init") };
$SIG{__DIE__ } = sub { Carp::confess };

Select or download this

=head1 NAME

...
   return if $ignore;
   $tar->add_files($File::Find::name);
}