Select Code to Download

  DB<76> sub change { $_[0] = 666 }

...
Modification of a read-only value attempted at (eval 86)[c:/Perl_524/l
+ib/perl5db.pl:737] line 2.

  DB<81>

  DB<81> sub change_arr { $_[0] = [666] }

...

  DB<86>