Help for this page

Select Code to Download


  1. or download this
    else { /* TARG == left */
    STRLEN llen;
...
    if (IN_BYTES)
        SvUTF8_off(TARG);
}
  2. or download this
    >perl -MDevel::Peek -e"sub f { my $s; Dump $s if $i++; $s='abc' } f;f"
SV = PV(0x238e44) at 0x182ee40
...
  PV = 0x18250bc "abc"\0
  CUR = 3
  LEN = 4