X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=c22f73aa6570c9a9a2bd1864a4421ead091d06d9;hb=c1413a7f3faf8fb1e44dd192e26d2ae52b8817ce;hp=d14557991d553fa820d24e3697853a2693432c11;hpb=67fbe0e1b13187d3561157e5b4b998bec3109d41;p=p5sagit%2Fp5-mst-13.2.git diff --git a/gv.c b/gv.c index d145579..c22f73a 100644 --- a/gv.c +++ b/gv.c @@ -103,11 +103,6 @@ Perl_gv_IOadd(pTHX_ register GV *gv) } if (!GvIOp(gv)) { -#ifdef GV_UNIQUE_CHECK - if (GvUNIQUE(gv)) { - Perl_croak(aTHX_ "Bad symbol for filehandle (GV is unique)"); - } -#endif GvIOp(gv) = newIO(); } return gv; @@ -1865,11 +1860,11 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags) * masked by overloading.pm */ STRLEN len; const int offset = method / 8; - const int bit = method % 7; + const int bit = method % 8; char *pv = SvPV(lex_mask, len); /* Bit set, so this overloading operator is disabled */ - if ( (STRLEN)offset <= len && pv[offset] & ( 1 << bit ) ) + if ( (STRLEN)offset < len && pv[offset] & ( 1 << bit ) ) return NULL; } } @@ -1983,6 +1978,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags) break; case int_amg: case iter_amg: /* XXXX Eventually should do to_gv. */ + case ftest_amg: /* XXXX Eventually should do to_gv. */ /* FAIL safe */ return NULL; /* Delegate operation to standard mechanisms. */ break;