From fe2774edcceb29d7f31eb2b8407d2ab3df896594 Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Tue, 29 Mar 2005 15:18:30 +0000
Subject: Clean-up some warnings when compiling on Win32 with VC++

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

(limited to 'util.c')

diff --git a/util.c b/util.c
index ab39df9130..010507d9b0 100644
--- a/util.c
+++ b/util.c
@@ -2816,7 +2816,7 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char **searc
     if (strEQ(scriptname, "-"))
  	dosearch = 0;
     if (dosearch) {		/* Look in '.' first. */
-	char *cur = scriptname;
+	const char *cur = scriptname;
 #ifdef SEARCH_EXTS
 	if ((curext = strrchr(scriptname,'.')))	/* possible current ext */
 	    while (ext[i])
-- 
cgit v1.2.1