postgres.git / summary / log / commit / refs

commit    9ca2dd578db4086ae8a6eb6fd82ac376b7b2804e
Author:   Peter Eisentraut <peter_e@gmx.net>
Date:     Wed Mar 22 04:18:49 2017 +0000

    Avoid Perl warning
    
    Perl versions before 5.12 would warn "Use of implicit split to @_ is
    deprecated".
    
    Author: Jeff Janes <jeff.janes@gmail.com>


 src/test/recovery/t/006_logical_decoding.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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


[parent: 05227e0c3452]