upstream/postgresql
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2026-02-12 15:23:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid Perl warning

Browse source 
Perl versions before 5.12 would warn "Use of implicit split to @_ is
deprecated".

Author: Jeff Janes <jeff.janes@gmail.com>
This commit is contained in:
Peter Eisentraut 2017-03-22 00:18:49 -04:00
parent 05227e0c34
commit 9ca2dd578d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/test/recovery/t/006_logical_decoding.pl
View file

@ -27,7 +27,7 @@ $node_master->safe_psql('postgres', qq[INSERT INTO decoding_test(x,y) SELECT s,
# Basic decoding works
my($result) = $node_master->safe_psql('postgres', qq[SELECT pg_logical_slot_get_changes('test_slot', NULL, NULL);]);
is(scalar(split /^/m, $result), 12, 'Decoding produced 12 rows inc BEGIN/COMMIT');
is(scalar(my @foobar = split /^/m, $result), 12, 'Decoding produced 12 rows inc BEGIN/COMMIT');
# If we immediately crash the server we might lose the progress we just made
# and replay the same changes again. But a clean shutdown should never repeat