From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 11:00:33 +0000 (+0000)
Subject: A mising cast (given that rx->subbeg is only char *)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=555831ceb3ad48ad47fd135f445c0332f0a2af9b;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@24756
---

diff --git a/pp_hot.c b/pp_hot.c
index ecae465..048e7e6 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