]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Add a cast to make icc happy
authorVincent Pit <vince@profvince.com>
Mon, 19 Jan 2009 20:06:17 +0000 (21:06 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 19 Jan 2009 20:06:17 +0000 (21:06 +0100)
indirect.xs

index 65b4a50b900e23d8ab36b63d68dcc841d8a913e3..7dacc7455367e0f514acebc28fb305d4bcd925ac 100644 (file)
@@ -210,7 +210,7 @@ STATIC OP *indirect_ck_rv2sv(pTHX_ OP *o) {
   SV *sv;
   const char *name = NULL, *s;
   STRLEN len;
   SV *sv;
   const char *name = NULL, *s;
   STRLEN len;
-  OPCODE type = op->op_type;
+  OPCODE type = (OPCODE) op->op_type;
 
   switch (type) {
    case OP_GV:
 
   switch (type) {
    case OP_GV: