Select Code to Download

 1:35 >perl -E "say for sort keys %Internals::"
SvREADONLY
...
hv_clear_placeholders

 1:35 >

#! perl
use strict;
...
    my ($name) = @_;
    print "foo --> name = $name, \$_ = $_\n";
}

12:26 >perl 723_SoPW.pl
literal1
Modification of a read-only value attempted at 723_SoPW.pl line 15.

12:28 >

#! perl
use strict;
...
    my ($name) = @_;
    print "foo --> name = $name, \$_ = $_\n";
}

12:28 >perl 723_SoPW.pl
literal1
Modification of a read-only value attempted at 723_SoPW.pl line 20.

12:36 >