A mising cast (given that rx->subbeg is only char *)

p4raw-id: //depot/perl@24756

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index ecae4655e2..048e7e6b5b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1398,7 +1398,7 @@ yup:					/* Confirmed by INTUIT */
 			      (int)(t-truebase));
 	    }
 	    rx->saved_copy = sv_setsv_cow(rx->saved_copy, TARG);
-	    rx->subbeg = SvPVX_const(rx->saved_copy) + (t - truebase);
+	    rx->subbeg = (char *) SvPVX_const(rx->saved_copy) + (t - truebase);
 	    assert (SvPOKp(rx->saved_copy));
 	} else
 #endif