diff options
Diffstat (limited to 'src/test/perl/PostgresNode.pm')
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index 18d5d12454b..4018f0af1fc 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1358,11 +1358,11 @@ mode must be specified. sub lsn { my ($self, $mode) = @_; - my %modes = ('insert' => 'pg_current_xlog_insert_location()', - 'flush' => 'pg_current_xlog_flush_location()', - 'write' => 'pg_current_xlog_location()', - 'receive' => 'pg_last_xlog_receive_location()', - 'replay' => 'pg_last_xlog_replay_location()'); + my %modes = ('insert' => 'pg_current_wal_insert_location()', + 'flush' => 'pg_current_wal_flush_location()', + 'write' => 'pg_current_wal_location()', + 'receive' => 'pg_last_wal_receive_location()', + 'replay' => 'pg_last_wal_replay_location()'); $mode = '<undef>' if !defined($mode); die "unknown mode for 'lsn': '$mode', valid modes are " . join(', ', keys %modes) |