diff options
| author | Andy Lester <andy@petdance.com> | 2005-10-13 11:42:12 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-10-13 23:03:46 +0000 |
| commit | 551405c409d33bc8cd0a20177c4ee21a204d18b5 (patch) | |
| tree | 42d3d3344712d171624bc4d793b87f019234bba4 /gv.c | |
| parent | b1681ed3d2d7fce28f676043b07816f4fad94f55 (diff) | |
| download | perl-551405c409d33bc8cd0a20177c4ee21a204d18b5.tar.gz | |
Stas' croak patch and then some
Message-ID: <20051013214212.GA1122@petdance.com>
p4raw-id: //depot/perl@25754
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -958,7 +958,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, hv = GvHVn(gv); hv_magic(hv, Nullgv, PERL_MAGIC_sig); for (i = 1; i < SIG_SIZE; i++) { - SV ** const init = hv_fetch(hv, PL_sig_name[i], strlen(PL_sig_name[i]), 1); + SV * const * const init = hv_fetch(hv, PL_sig_name[i], strlen(PL_sig_name[i]), 1); if (init) sv_setsv(*init, &PL_sv_undef); PL_psig_ptr[i] = 0; @@ -1263,14 +1263,14 @@ Perl_gv_check(pTHX_ HV *stash) file = GvFILE(gv); /* performance hack: if filename is absolute and it's a standard * module, don't bother warning */ - if (file - && PERL_FILE_IS_ABSOLUTE(file) #ifdef MACOS_TRADITIONAL - && (instr(file, ":lib:") +# define LIB_COMPONENT ":lib:" #else - && (instr(file, "/lib/") +# define LIB_COMPONENT "/lib/" #endif - || instr(file, ".pm"))) + if (file + && PERL_FILE_IS_ABSOLUTE(file) + && (instr(file, LIB_COMPONENT) || instr(file, ".pm"))) { continue; } |