Help for this page

Select Code to Download


  1. or download this
     DB<18> use Scalar::Util qw/readonly/

...
  1
  1
 DB<26>
  2. or download this
      DB<32> x map { $_ = 1 } "str"
Modification of a read-only value attempted at (eval 42)[c:/Perl_524/l
+ib/perl5db.pl:737] line 2.
...
Modification of a read-only value attempted at (eval 43)[c:/Perl_524/l
+ib/perl5db.pl:737] line 2.
  DB<34> x map { $_ = 1 } undef
Modification of a read-only value attempted at (eval 44)[c:/Perl_524/l
+ib/perl5db.pl:737] line 2.