"" . open(my $fh,...) gave wrong warning

RT #128940

    $ perl -we 'print "" . open my $fh, "<", "no / such / file"'
    Use of uninitialized value $fh in concatenation (.) or string at -e line 1.
                           ^^^

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index b34505273f..8991c12b57 100644
--- a/sv.c
+++ b/sv.c
@@ -16243,6 +16243,7 @@ S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv,
 	     */
 	     break;
 	}
+	match = 1;
 	goto do_op;
 
     /* ops where $_ may be an implicit arg */