| 8 |
|
use Term::ANSIColor; |
| 9 |
|
use Cwd 'abs_path'; |
| 10 |
|
|
| 11 |
+ |
select ((select (STDOUT), $| = 1)[0]); |
| 12 |
+ |
|
| 13 |
|
sub printHelp; |
| 14 |
|
sub outputPset; |
| 15 |
|
sub outputRunList; |
| 170 |
|
{ |
| 171 |
|
next if $files[$i] eq "."; |
| 172 |
|
next if $files[$i] eq ".."; |
| 173 |
+ |
next if !($files[$i] =~ m/\.root$/); |
| 174 |
|
print RUNLIST "'file:" . abs_path ("$location/$files[$i]") . "'"; |
| 175 |
|
print RUNLIST "," if $i + 1 != @files; |
| 176 |
|
print RUNLIST "\n"; |
| 202 |
|
if ($results->numrows () == 1) |
| 203 |
|
{ |
| 204 |
|
my @row = $results->fetchrow (); |
| 205 |
< |
return ($row[3], $row[4], $row[5], $row[7]) if $row[7]; |
| 206 |
< |
return ($row[3], $row[4], $row[5], $row[6]) if !$row[7]; |
| 205 |
> |
$row[7] += 0; |
| 206 |
> |
return ($row[3], $row[4], $row[5], $row[7]) if $row[7] > 0; |
| 207 |
> |
return ($row[3], $row[4], $row[5], $row[6]) if $row[7] <= 0; |
| 208 |
|
} |
| 209 |
|
if ($results->numrows () == 0) |
| 210 |
|
{ |
