summaryrefslogtreecommitdiff
path: root/x2p/walk.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-04-05 21:30:21 +0000
committerNicholas Clark <nick@ccl4.org>2005-04-05 21:30:21 +0000
commit07409e015252427f5ec1d8889bbfb78cf39d061d (patch)
tree0bf440cf49a586dd6e874ecb4fd0aa851fe03d83 /x2p/walk.c
parent5b279f8b9f38ac6332e7ddbcac2b8bf949abe47c (diff)
downloadperl-07409e015252427f5ec1d8889bbfb78cf39d061d.tar.gz
Add casting to allow g++ (3.3.5) to compile the core code.
A C++ compiler produces lots of warnings that are probably valid concerns to investigate. p4raw-id: //depot/perl@24170
Diffstat (limited to 'x2p/walk.c')
-rw-r--r--x2p/walk.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/x2p/walk.c b/x2p/walk.c
index 63ceb47cdc..de1743fc8e 100644
--- a/x2p/walk.c
+++ b/x2p/walk.c
@@ -1,7 +1,7 @@
/* $RCSfile: walk.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:31 $
*
* Copyright (C) 1991, 1992, 1993, 1994, 1995, 1997, 1998, 1999,
- * 2000, 2001, 2002, by Larry Wall and others
+ * 2000, 2001, 2002, 2005 by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@ -858,7 +858,7 @@ sub Pick {\n\
}
*d = '\0';
str_set(tmp2str,tokenbuf);
- s = gsub ? "/g" : "/";
+ s = (char *) (gsub ? "/g" : "/");
}
else {
tmp2str=walk(1,level,ops[node+2].ival,&numarg,P_MIN);
@@ -866,7 +866,7 @@ sub Pick {\n\
str_scat(tmp3str,tmp2str);
str_cat(tmp3str,").'\"') =~ s/&/\\$&/g, ");
str_set(tmp2str,"eval $s_");
- s = gsub ? "/ge" : "/e";
+ s = (char *) (gsub ? "/ge" : "/e");
i++;
}
str_cat(tmp2str,s);