Help for this page

Select Code to Download


  1. or download this
      $foo = "x";
  &mod($foo);
...
    $_[0] = "m";
    print "  after: $_[0]\n";
  }
  2. or download this
      Modification of a read-only value attempted...
  3. or download this
      eval { $_[0] .= '' };
  if ($@ =~ /Modification of a read-only value attempted/) {
  4. or download this
    $ perl -MDevel::Peek -le 'Dump("hello")'
SV = PV(0x8121a3c) at 0x812b36c
...
  PV = 0x812f498 "hello"\0
  CUR = 5
  LEN = 6