diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-04-05 21:30:21 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-04-05 21:30:21 +0000 |
commit | 07409e015252427f5ec1d8889bbfb78cf39d061d (patch) | |
tree | 0bf440cf49a586dd6e874ecb4fd0aa851fe03d83 /x2p | |
parent | 5b279f8b9f38ac6332e7ddbcac2b8bf949abe47c (diff) | |
download | perl-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')
-rw-r--r-- | x2p/walk.c | 6 |
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); |