@@ -2305,10 +2305,10 @@ sub run_command {
2305
2305
if ($arg -> {dbnumber } and $arg -> {dbnumber } != $num ) {
2306
2306
next ;
2307
2307
}
2308
- # # Likewise if we have specified "target" database info and this is not our choice
2309
- if ($arg -> {target } and $arg -> {target } != $db ) {
2308
+ # # Likewise if we have specified "target" database info and this is not our choice
2309
+ if ($arg -> {target } and $arg -> {target } != $db ) {
2310
2310
next ;
2311
- }
2311
+ }
2312
2312
2313
2313
# # Just to keep things clean:
2314
2314
truncate $tempfh , 0;
@@ -7346,9 +7346,9 @@ sub check_sequence {
7346
7346
FROM $seqname ) foo
7347
7347
} ;
7348
7348
}
7349
- # Use UNION ALL to query multiple sequences at once, however if there are too many sequences this can exceed
7349
+ # Use UNION ALL to query multiple sequences at once, however if there are too many sequences this can exceed
7350
7350
# maximum argument length; so split into chunks of 200 sequences or less and iterate over them.
7351
- while (my @seq_sql_chunk = splice @seq_sql , 0, 200) {
7351
+ while (my @seq_sql_chunk = splice @seq_sql , 0, 200) {
7352
7352
my $seqinfo = run_command(join (" \n UNION ALL\n " , @seq_sql_chunk ), { target => $db }); # execute all SQL commands at once
7353
7353
for my $r2 (@{$seqinfo -> {db }[0]{slurp }}) { # now look at all results
7354
7354
my ($seqname , $last , $slots , $used , $percent , $left ) = @$r2 {qw/ seqname last_value slots used percent numleft / };
@@ -7373,7 +7373,7 @@ sub check_sequence {
7373
7373
push @warn => $msg ;
7374
7374
}
7375
7375
}
7376
- }
7376
+ }
7377
7377
if ($MRTG ) {
7378
7378
my $msg = join ' | ' => map { $_ -> [0] } @{$seqinfo {$maxp }};
7379
7379
do_mrtg({one => $maxp , msg => $msg });
0 commit comments