ununit pos value warning identified the wrong variable name

p4raw-id: //depot/perl@31834

1 files changed, 5 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 4a2110779b..5cc15b1b99 100644
--- a/sv.c
+++ b/sv.c
@@ -12077,6 +12077,11 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 	match = 1; /* XS or custom code could trigger random warnings */
 	goto do_op;
 
+    case OP_POS:
+	/* def-ness of rval pos() is independent of the def-ness of its arg */
+	if ( !(obase->op_flags & OPf_MOD))
+	    break;
+
     case OP_SCHOMP:
     case OP_CHOMP:
 	if (SvROK(PL_rs) && uninit_sv == SvRV(PL_rs))