}
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;
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;
}
}
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;