view release on metacpan or  search on metacpan

t/test_utils.pl  view on Meta::CPAN

# Copyright 2002-2017 by Wilson Snyder.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.

use File::Find;
use IO::File;
use Cwd;
use vars qw($PERL $REPO $REPOFN);

if ($ENV{S4_SVN}) {
    print "unsetenv S4_SVN\n";
    delete $ENV{S4_SVN};   # Don't complicate matters
}

$PERL = "$^X -Iblib/arch -Iblib/lib";
$REPOFN = getcwd()."/test_dir/repo";
$REPO = "file://localhost$REPOFN";

mkdir 'test_dir',0777;

$ENV{LANG} = "C";