view release on metacpan or  search on metacpan

t/lib.pl  view on Meta::CPAN

    return @v;
}
sub config
{
    my $td = File::Spec->tmpdir or die q/Can't find a temporary directory to use. Please set TMPDIR, TEMP or TMP environment variables to a valid cirectory/;

#####    open OUT, ">pipe.pl" or die "Failed to create pipe.pl - $!";
#####    print OUT "#!$^X\n";
#####    print OUT 'while (<STDIN>) {open OUT, ">>dbixl4p.log"; print OUT $_;close OUT;}';
#####    close OUT;
#####    chmod 0777, "pipe.pl";

    $logtmp1 = File::Spec->catfile($td, 'dbixroot.log');
    $logtmp2 = File::Spec->catfile($td, 'dbix.log');
    my $cwd = getcwd();
    my $pipe = File::Spec->catfile($cwd, "pipe.pl");
    my $loginit = qq(
log4perl.logger = FATAL, LOGFILE

# LOGFILE appender used by root (here)
# log anything at level ERROR and above to $logtmp1