--------------------------------------------------------------------------------
EOT
- $ENV{COMPILE_TIMEOUT} = 120
- if ($type eq 'compile' && !$ENV{COMPILE_TIMEOUT});
+ $ENV{PERLCC_TIMEOUT} = 120
+ if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});
$bad = 0;
$good = 0;
}
}
else {
- $pct = sprintf("%.2f", ($files - $bad) / $files * 100);
+ $pct = $files ? sprintf("%.2f", ($files - $bad) / $files * 100) : "0.00";
if ($bad == 1) {
warn "Failed 1 test script out of $files, $pct% okay.\n";
}