Select Code to Download

#! perl
use strict;
...
Internals::SvREADONLY($s, 1);
$s = 'wilma';
print "\$ = $s\n";

19:04 >perl 723_SoPW.pl
$s = fred
...
Modification of a read-only value attempted at 723_SoPW.pl line 10.

19:07 >

#! perl
use strict;
...
Internals::SvREADONLY($s, 0);
$s = 'wilma';
print "\$ = $s\n";

19:10 >perl 723_SoPW.pl
$s = fred
...
$s = wilma

19:12 >

#! perl
use strict;
...
    $s = 'wilma';
    print "\$ = $s\n";
}

19:14 >perl 723_SoPW.pl
$s = fred
Modification of a read-only value attempted at 723_SoPW.pl line 9.

19:16 >