Fix regex per bug #69
authorPeter Eisentraut <[email protected]>
Tue, 8 Feb 2011 21:54:59 +0000 (16:54 -0500)
committerGreg Sabino Mullane <[email protected]>
Tue, 8 Feb 2011 21:54:59 +0000 (16:54 -0500)
check_postgres.pl

index b8c22709655218928243ba4f8342932b068889a9..eacedbf35ba727128473163eabf3310b8f57c906 100755 (executable)
@@ -1065,7 +1065,7 @@ if (! defined $PSQL or ! length $PSQL) {
 }
 -x $PSQL or ndie msg('opt-psql-noexec', $PSQL);
 $res = qx{$PSQL --version};
-$res =~ /psql.+(\d+\.\d+)/ or ndie msg('opt-psql-nover');
+$res =~ /psql\D+(\d+\.\d+)/ or ndie msg('opt-psql-nover');
 our $psql_version = $1;
 
 $VERBOSE >= 2 and warn qq{psql=$PSQL version=$psql_version\n};