4 require Config; import Config;
5 if ($Config{extensions} !~ /\bList\/Util\b/) {
6 print "1..0 # Skip: List::Util was not built\n";
11 use Scalar::Util qw(readonly);
15 print "not " unless readonly(1);
20 print "not " if readonly($var);
23 print "not " unless $var == 2;
26 print "not " unless readonly("fred");
31 print "not " if readonly($var);
34 print "not " unless $var eq "fred";
39 print "not " if readonly($var);
42 print "not " unless readonly($$var);
45 print "not " if readonly(*STDOUT);