Select Code to Download

if ((PL_hints & HINT_STRICT_REFS)&&(kid->op_private & OPpCONST_BARE)){
            char *badthing = Nullch;
...
          "Can't use bareword (\"%s\") as %s ref while \"strict refs\"
+ in use",
                      name, badthing);
        }