@@ -2254,10 +2254,10 @@ sub run_command {
2254
2254
if ($arg -> {dbnumber } and $arg -> {dbnumber } != $num ) {
2255
2255
next ;
2256
2256
}
2257
- # # Likewise if we have specified "target" database info and this is not our choice
2258
- if ($arg -> {target } and $arg -> {target } != $db ) {
2257
+ # # Likewise if we have specified "target" database info and this is not our choice
2258
+ if ($arg -> {target } and $arg -> {target } != $db ) {
2259
2259
next ;
2260
- }
2260
+ }
2261
2261
2262
2262
# # Just to keep things clean:
2263
2263
truncate $tempfh , 0;
@@ -7295,9 +7295,9 @@ sub check_sequence {
7295
7295
FROM $seqname ) foo
7296
7296
} ;
7297
7297
}
7298
- # Use UNION ALL to query multiple sequences at once, however if there are too many sequences this can exceed
7298
+ # Use UNION ALL to query multiple sequences at once, however if there are too many sequences this can exceed
7299
7299
# maximum argument length; so split into chunks of 200 sequences or less and iterate over them.
7300
- while (my @seq_sql_chunk = splice @seq_sql , 0, 200) {
7300
+ while (my @seq_sql_chunk = splice @seq_sql , 0, 200) {
7301
7301
my $seqinfo = run_command(join (" \n UNION ALL\n " , @seq_sql_chunk ), { target => $db }); # execute all SQL commands at once
7302
7302
for my $r2 (@{$seqinfo -> {db }[0]{slurp }}) { # now look at all results
7303
7303
my ($seqname , $last , $slots , $used , $percent , $left ) = @$r2 {qw/ seqname last_value slots used percent numleft / };
@@ -7322,7 +7322,7 @@ sub check_sequence {
7322
7322
push @warn => $msg ;
7323
7323
}
7324
7324
}
7325
- }
7325
+ }
7326
7326
if ($MRTG ) {
7327
7327
my $msg = join ' | ' => map { $_ -> [0] } @{$seqinfo {$maxp }};
7328
7328
do_mrtg({one => $maxp , msg => $msg });
0 commit comments