Support Perl 5.8 which doesn't have // yet

df7cb · df7cb · commit e3409de9916c · 2017-11-06T19:02:16.000+01:00
Patch by Ed Sabol, close bucardo#126.
diff --git a/check_postgres.pl b/check_postgres.pl
@@ -8101,8 +8101,8 @@ sub check_txn_idle {
         next if skip_item($r->{datname});
 
         ## We do a lot of filtering based on the current_query or state in 9.2+
-        my $cq = $r->{query} // $r->{current_query};
-        my $st = $r->{state} // '';
+        my $cq = defined($r->{query}) ? $r->{query} : $r->{current_query};
+        my $st = defined($r->{state}) ? $r->{state} : '';
 
         ## Return unknown if we cannot see because we are a non-superuser
         if ($cq =~ /insufficient/) {
