diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-27 01:31:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-27 01:31:41 +0000 |
| commit | 2b260de0f3727bc62519897f69d6f752c97d8502 (patch) | |
| tree | 549e627839f07c068a424e2dddf0617b9e86466d /x2p | |
| parent | dff6d3cd91bb8f94ad6445629f3bfb07c761a04e (diff) | |
| download | perl-2b260de0f3727bc62519897f69d6f752c97d8502.tar.gz | |
more GCC v2.95 induced adjustments
p4raw-id: //depot/perl@4462
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 34361abc0c..3344688117 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -863,7 +863,7 @@ sub Pick {\n\ str_scat(tmp3str,tmp2str); str_cat(tmp3str,").'\"') =~ s/&/\\$&/g, "); str_set(tmp2str,"eval $s_"); - s = (*s == 'g' ? "ge" : "e"); + s = (char*)(*s == 'g' ? "ge" : "e"); i++; } type = ops[ops[node+1].ival].ival; @@ -1219,7 +1219,7 @@ sub Pick {\n\ } tmpstr = walk(1+(type==OPRINT),level,ops[node+1].ival,&numarg,P_MIN); if (!*tmpstr->str_ptr && lval_field) { - t = saw_OFS ? "$," : "' '"; + t = (char*)(saw_OFS ? "$," : "' '"); if (split_to_array) { sprintf(tokenbuf,"join(%s,@Fld)",t); str_cat(tmpstr,tokenbuf); @@ -1295,7 +1295,7 @@ sub Pick {\n\ tmpstr = str_new(0); if (!tmpstr->str_ptr || !*tmpstr->str_ptr) { if (lval_field) { - t = saw_OFS ? "$," : "' '"; + t = (char*)(saw_OFS ? "$," : "' '"); if (split_to_array) { sprintf(tokenbuf,"join(%s,@Fld)",t); str_cat(tmpstr,tokenbuf); |