@@ -2254,10 +2254,10 @@ sub run_command {
22542254 if ($arg -> {dbnumber } and $arg -> {dbnumber } != $num ) {
22552255 next ;
22562256 }
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 ) {
22592259 next ;
2260- }
2260+ }
22612261
22622262 # # Just to keep things clean:
22632263 truncate $tempfh , 0;
@@ -7295,9 +7295,9 @@ sub check_sequence {
72957295FROM $seqname ) foo
72967296} ;
72977297 }
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
72997299 # 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) {
73017301 my $seqinfo = run_command(join (" \n UNION ALL\n " , @seq_sql_chunk ), { target => $db }); # execute all SQL commands at once
73027302 for my $r2 (@{$seqinfo -> {db }[0]{slurp }}) { # now look at all results
73037303 my ($seqname , $last , $slots , $used , $percent , $left ) = @$r2 {qw/ seqname last_value slots used percent numleft / };
@@ -7322,7 +7322,7 @@ sub check_sequence {
73227322 push @warn => $msg ;
73237323 }
73247324 }
7325- }
7325+ }
73267326 if ($MRTG ) {
73277327 my $msg = join ' | ' => map { $_ -> [0] } @{$seqinfo {$maxp }};
73287328 do_mrtg({one => $maxp , msg => $msg });
0 commit comments