syntax error in action=sequence

[jw1u1]

check_postgres --version
check_postgres version 2.26.0

check_postgres --action=sequence --alldb
Use of uninitialized value in numeric ge (>=) at /usr/bin/check_postgres line 8678.
Use of uninitialized value $typename in string eq at /usr/bin/check_postgres line 8681.
Use of uninitialized value $typename in string eq at /usr/bin/check_postgres line 8681.
Use of uninitialized value $seqname_l in substitution (s///) at /usr/bin/check_postgres line 8683.
Use of uninitialized value $seqname_l in concatenation (.) or string at /usr/bin/check_postgres line 8684.
Use of uninitialized value $seqname in concatenation (.) or string at /usr/bin/check_postgres line 8684.
Use of uninitialized value in numeric ge (>=) at /usr/bin/check_postgres line 8695.
ERROR: syntax error at or near ")"
LINE 8: FROM ) foo
^

[jw1u1]

sub check_sequence is using $db->{'version'}, but that's empty
add
my $version = verify_version();
and use that instead

--- a/files/default/check_postgres.pl
+++ b/files/default/check_postgres.pl
@@ -9027,6 +9027,7 @@ sub check_sequence {
     if($skipcycled) {
       $percsql = 'CASE WHEN cycle THEN 0 ELSE ' . $percsql . ' END';
     }
+    my $version = verify_version();
 
     my ($warning, $critical) = validate_range
         ({
@@ -9109,7 +9110,7 @@ FROM pg_sequences) foo};
         my $multidb = @{$info->{db}} > 1 ? "$db->{dbname}." : '';
         my @seq_sql;
         for my $r (@{$db->{slurp}}) { # for each sequence, create SQL command to inspect it
-            next if ($db->{version} >= 10); # TODO: skip loop entirely
+            next if ($version >= 10); # TODO: skip loop entirely
             my ($schema, $seq, $seqname, $typename) = @$r{qw/ nspname seqname safename typname /};
             next if skip_item($seq);
             my $maxValue = $typename eq 'int2' ? $MAXINT2 : $typename eq 'int4' ? $MAXINT4 : $MAXINT8;
@@ -9126,7 +9127,7 @@ FROM (
 FROM $seqname) foo
 };
         }
-        if ($db->{version} >= 10) {
+        if ($version >= 10) {
             @seq_sql = ($SQL10); # inject PG10 query here (TODO: pull this out of loops)
         }
         # Use UNION ALL to query multiple sequences at once, however if there are too many sequences this can exceed