diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-08-08 03:02:35 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-08-08 03:55:13 +0000 |
| commit | 666ea1927d03c6430ac8120e8603244e721e20a0 (patch) | |
| tree | 825978bf91e0470887834b60aeb5ca5815ec39ed /gv.c | |
| parent | 0ec9ad96b741d60d5dad460acf757c031b11fe15 (diff) | |
| download | perl-666ea1927d03c6430ac8120e8603244e721e20a0.tar.gz | |
g++ stage 1 reached
Message-ID: <44D7AA6B.4040802@iki.fi>
p4raw-id: //depot/perl@28674
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 22 |
1 files changed, 9 insertions, 13 deletions
@@ -81,13 +81,12 @@ Perl_gv_IOadd(pTHX_ register GV *gv) * this is a dirhandle. */ const char * const fh = - (const char *) - (PL_op->op_type == OP_READDIR || - PL_op->op_type == OP_TELLDIR || - PL_op->op_type == OP_SEEKDIR || - PL_op->op_type == OP_REWINDDIR || - PL_op->op_type == OP_CLOSEDIR ? - "dirhandle" : "filehandle"); + PL_op->op_type == OP_READDIR || + PL_op->op_type == OP_TELLDIR || + PL_op->op_type == OP_SEEKDIR || + PL_op->op_type == OP_REWINDDIR || + PL_op->op_type == OP_CLOSEDIR ? + "dirhandle" : "filehandle"; Perl_croak(aTHX_ "Bad symbol for %s", fh); } @@ -162,8 +161,7 @@ GP * Perl_newGP(pTHX_ GV *const gv) { GP *gp; - const char *const file = - CopFILE(PL_curcop) ? CopFILE(PL_curcop) : (const char *)""; + const char *const file = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : ""; STRLEN len = strlen(file); U32 hash; @@ -1277,7 +1275,7 @@ Perl_gv_fullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain) SvOK_off(sv); return; } - sv_setpv(sv, prefix ? prefix : (const char *)""); + sv_setpv(sv, prefix ? prefix : ""); name = HvNAME_get(hv); if (name) { @@ -1562,9 +1560,7 @@ Perl_Gv_AMupdate(pTHX_ HV *stash) FALSE))) { /* Can be an import stub (created by "can"). */ - const char * const name = - (const char *) - ((gvsv && SvPOK(gvsv)) ? SvPVX_const(gvsv) : "???"); + const char * const name = (gvsv && SvPOK(gvsv)) ? SvPVX_const(gvsv) : "???"; Perl_croak(aTHX_ "%s method \"%.256s\" overloading \"%s\" "\ "in package \"%.256s\"", (GvCVGEN(gv) ? "Stub found while resolving" |