@@ -2305,10 +2305,10 @@ sub run_command {
23052305 if ($arg -> {dbnumber } and $arg -> {dbnumber } != $num ) {
23062306 next ;
23072307 }
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 ) {
23102310 next ;
2311- }
2311+ }
23122312
23132313 # # Just to keep things clean:
23142314 truncate $tempfh , 0;
@@ -7346,9 +7346,9 @@ sub check_sequence {
73467346FROM $seqname ) foo
73477347}
73487348 }
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
73507350 # 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) {
73527352 my $seqinfo = run_command(join (" \n UNION ALL\n " @seq_sql_chunk ), { target => $db }); # execute all SQL commands at once
73537353 for my $r2 (@{$seqinfo -> {db }[0]{slurp }}) { # now look at all results
73547354 my ($seqname , $last , $slots , $used , $percent , $left ) = @$r2 {qw/ seqname last_value slots used percent numleft /
@@ -7373,7 +7373,7 @@ sub check_sequence {
73737373 push @warn => $msg ;
73747374 }
73757375 }
7376- }
7376+ }
73777377 if ($MRTG ) {
73787378 my $msg = join ' | ' => map { $_ -> [0] } @{$seqinfo {$maxp }};
73797379 do_mrtg({one => $maxp , msg => $msg });
0 commit comments