diff --git a/pp_ctl.c b/pp_ctl.c
index 24067618e3..b927821563 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1330,9 +1330,8 @@ PP(pp_flop)
 	    }
 	}
 	else {
-	    SV * const final = sv_mortalcopy(right);
 	    STRLEN len;
-	    const char * const tmps = SvPV_const(final, len);
+	    const char * const tmps = SvPV_const(right, len);
 
 	    SV *sv = sv_mortalcopy(left);
 	    SvPV_force_nolen(sv);
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index 69be056a4f..2673b48aa4 100644
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -530,11 +530,11 @@ $v = ($m1 ... $m2);
 EXPECT
 Use of uninitialized value $m1 in range (or flop) at - line 7.
 Use of uninitialized value $m2 in range (or flop) at - line 8.
-Use of uninitialized value in range (or flop) at - line 9.
+Use of uninitialized value $m2 in range (or flop) at - line 9.
 Use of uninitialized value in range (or flop) at - line 9.
 Use of uninitialized value $m1 in range (or flop) at - line 12.
 Use of uninitialized value $m2 in range (or flop) at - line 13.
-Use of uninitialized value in range (or flop) at - line 14.
+Use of uninitialized value $m2 in range (or flop) at - line 14.
 Use of uninitialized value in range (or flop) at - line 14.
 ########
 use warnings 'uninitialized';