view release on metacpan or  search on metacpan

t/80-script.t  view on Meta::CPAN

use File::Spec;

plan tests => 3;

my ( $script_dir, $perl, $script, $cmd, $tc );

$script_dir = 'script';

$script = File::Spec->catfile( $script_dir, 'podweaver' );

#  Untaint stuff so -T doesn't complain.
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer

#  Ditto their perl location.
#  We run the script via the currently invoked perl, because the
#  shebang perl at the top of the script is probably the wrong version
#  under a smoke tester.
( $perl ) = $^X =~ /^(.*)$/;


#