From 555831ceb3ad48ad47fd135f445c0332f0a2af9b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 11:00:33 +0000
Subject: [PATCH] A mising cast (given that rx->subbeg is only char *)

p4raw-id: //depot/perl@24756
---
 pp_hot.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.7.4