diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2017-03-22 00:18:49 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2017-03-22 00:18:49 -0400 |
| commit | 9ca2dd578db4086ae8a6eb6fd82ac376b7b2804e (patch) | |
| tree | 41e9a8a3e7dcb2fe6e8c0df9b1932bef351ae551 /src | |
| parent | 05227e0c345247c9e9ff91445850f414e2b0bb70 (diff) | |
| download | postgresql-9ca2dd578db4086ae8a6eb6fd82ac376b7b2804e.tar.gz postgresql-9ca2dd578db4086ae8a6eb6fd82ac376b7b2804e.zip | |
Avoid Perl warning
Perl versions before 5.12 would warn "Use of implicit split to @_ is
deprecated".
Author: Jeff Janes <jeff.janes@gmail.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/recovery/t/006_logical_decoding.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/recovery/t/006_logical_decoding.pl b/src/test/recovery/t/006_logical_decoding.pl index 3f249cd3439..66d5e4ad09f 100644 --- a/src/test/recovery/t/006_logical_decoding.pl +++ b/src/test/recovery/t/006_logical_decoding.pl @@ -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 |