Update CPAN.pm to 1.93_54

[p5sagit/p5-mst-13.2.git] / gv.c

diff --git a/gv.c b/gv.c
index d145579..c22f73a 100644 (file)
--- 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;