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 /scope.c | |
| 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 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -287,7 +287,9 @@ Perl_save_gp(pTHX_ GV *gv, I32 empty) GvGP(gv) = gp_ref(gp); GvSV(gv) = NEWSV(72,0); GvLINE(gv) = CopLINE(PL_curcop); - GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : ""; + /* XXX Ideally this cast would be replaced with a change to const char* + in the struct. */ + GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : (char *) ""; GvEGV(gv) = gv; } else { |