#!/usr/bin/perl my $v = substr(`pg_config --version`, 11); my($a, $b, $c) = split(/\./, $v); print "-D PGSQL_HAS_ESCAPECONN" if(hex(sprintf("%02x", $a) . sprintf("%02x", $b) . sprintf("%02x", $c)) >= 0x080000);