A couple const's and a cast to get Sun CC to compile these files.

Perl, however, still will not build with the Sun CC.

p4raw-id: //depot/perl@28686

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 03bc68249e..a1bd2c4fd7 100644
--- a/toke.c
+++ b/toke.c
@@ -11414,7 +11414,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 {
     dVAR;
     SV *sv;				/* scalar value: string */
-    char *tmps;				/* temp string, used for delimiter matching */
+    const char *tmps;			/* temp string, used for delimiter matching */
     register char *s = start;		/* current position in the buffer */
     register char term;			/* terminating character */
     register char *to;			/* current position in the sv's data */