Help for this page

Select Code to Download


  1. or download this
    Perl_warner( aTHX_ WARN_SYNTAX, "Stringified reference\n" );

/* or you could make references REALLY strict ;-) */
if ( PL_hints & HINT_STRICT_REFS )
    Perl_croak( aTHX_ "Stringification of reference disallowed\n" );
  2. or download this
    /* in perl.h with the rest of the HINT_ defines */

...
-       $^H &= ~ bits(@_ ? @_ : qw(refs subs vars));
+       $^H &= ~ bits(@_ ? @_ : qw(refs subs vars stringify));
    }