view release on metacpan or  search on metacpan

t/lib.pl  view on Meta::CPAN

    note("log file 1 is $logtmp1");
    return $logtmp1;
}

sub check_log
{
    my ($s, $file, $tsize) = @_;
    $$s = "";
    $tsize = 0 if !$tsize;
    return 0 if (! -r $file);
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
    return 0 if ($size <= 0);
    return 0 if ($size <= $tsize);
    open IN, "<$file";
    while (<IN>) {$$s .= $_};
    close IN;
    diag($$s) if ($ENV{TEST_VERBOSE});
    return $size;
}
1;