BEGIN { unshift @INC, $Bin };
- use test qw( DATA_DIR
- evcheck runcheck );
+ use test qw( evcheck runcheck );
BEGIN {
plan tests => 3,
=item Prepending F<blib/script> onto the path
-=item Pushing the module F<lib/> dir onto the @PERL5LIB var
-
-For executed scripts.
-
=item Pushing the module F<lib/> dir onto the @INC var
For internal C<use> calls.
=over 4
-=item BIN_DIR
-
-=item DATA_DIR
-
-=item REF_DIR
-
-=item LIB_DIR
-
-=item PERL
-
=item check_req
=item compare
=cut
-@EXPORT_OK = qw( BIN_DIR DATA_DIR REF_DIR LIB_DIR PERL
- check_req compare evcheck find_exec only_files read_file
+@EXPORT_OK = qw( check_req compare evcheck find_exec only_files read_file
save_output restore_output tempdir tmpnam );
# Utility -----------------------------
use Carp qw( carp croak );
use Cwd 2.01 qw( cwd );
-use Env qw( PATH PERL5LIB );
+use Env qw( PATH );
use Fatal 1.02 qw( close open seek sysopen unlink );
use Fcntl 1.03 qw( :DEFAULT );
use File::Basename qw( basename );
return $min;
}
-sub max {
- croak "Can't max over 0 args!\n"
- unless @_;
- my $max = $_[0];
- for (@_[1..$#_]) {
- $max = $_
- if $_ > $max;
- }
-
- return $max;
-}
-
# -------------------------------------
# PACKAGE CONSTANTS
# -------------------------------------
-use constant BIN_DIR => catdir $Bin, updir, 'bin';
-use constant DATA_DIR => catdir $Bin, updir, 'data';
-use constant REF_DIR => catdir $Bin, updir, 'testref';
-use constant LIB_DIR => catdir $Bin, updir, 'lib';
-
use constant BUILD_SCRIPT_DIR => => catdir $Bin, updir, qw( blib script );
sub find_exec {
return;
}
-use constant PERL => (basename($^X) eq $^X ?
- find_exec($^X) :
- rel2abs($^X));
-
# -------------------------------------
# PACKAGE ACTIONS
# -------------------------------------
-# @PERL5LIB not available in Env for perl 5.00503
-# unshift @PERL5LIB, LIB_DIR;
-$PERL5LIB = defined $PERL5LIB ? join(':', LIB_DIR, $PERL5LIB) : LIB_DIR;
-unshift @INC, LIB_DIR;
-
$PATH = join ':', BUILD_SCRIPT_DIR, split /:/, $PATH;
$_ = rel2abs($_)