88 |
|
foreach my $arg (@ARGV) |
89 |
|
{ |
90 |
|
$dirs{$arg} = $dir; |
91 |
< |
if (substr ($file, 0, length ($arg)) eq $arg) |
91 |
> |
if (substr ($file, 0, length ($arg)) eq $arg && countEvents ($file) >= 0) |
92 |
|
{ |
93 |
|
push (@{$rootFiles{$arg}}, $file); |
94 |
|
push (@weights, $opt{"weight"}) if $opt{"weight"}; |
126 |
|
} |
127 |
|
my $mergedFiles = join (" ", @mergedFiles); |
128 |
|
my $mergedWeights = join (",", @mergedWeights); |
129 |
+ |
system ("mergeTFileServiceHistograms -i $mergedFiles -o $opt{'prefix'}_Unweighted.root"); |
130 |
|
system ("mergeTFileServiceHistograms -i $mergedFiles -o $opt{'prefix'}.root -w $mergedWeights"); |
131 |
|
foreach my $mergedFile (@mergedFiles) |
132 |
|
{ |
233 |
|
my $cutFlow = shift; |
234 |
|
|
235 |
|
my $output = `getEventsFromCutFlow $file $cutFlow`; |
236 |
< |
if ($output =~ m/Did not find a histogram named/) |
236 |
> |
if ($output =~ m/Did not find a histogram named/ || $output =~ m/appears to be empty/ || $output =~ m/Failed to open/) |
237 |
|
{ |
238 |
|
print $output; |
239 |
|
return -1; |