1N/A chdir 't' if -d 't'; 1N/A# Check correct optimization of ucfirst etc 1N/A# Check correct destruction of objects: 1N/A{ # Check calling STORE 1N/A sub B::STORE { $sc++; my $o = shift; $o->[0] = 17 + shift } 1N/A# Chains of assignments 1N/A ? "skip" : "# '$_'\nnot"; 1N/A local \$SIG{__WARN__} = \\&wrn; 1N/A print "# \$comment: got `\$a', expected `\$b'\n"; 1N/A print "\$skip " if \$a ne \$b or \$skip eq 'skip'; 1N/A print "ok \$ord\\n"; 1N/A local \$SIG{__WARN__} = \\&wrn; 1N/A my \$$variable = "Ac# Ca\\nxxx"; 1N/A \$$variable = $operator \$$variable; 1N/A \$toself = \$$variable; 1N/A \$direct = $operator "Ac# Ca\\nxxx"; 1N/A print "# \\\$$variable = $operator \\\$$variable\\nnot " 1N/A unless \$toself eq \$direct; 1N/A print "ok \$ord\\n"; 1N/A } elsif ($@ =~ /Can't (modify|take log of 0)/) { 1N/A print "# skipping $comment: syntax not good for selfassign:\nok $ord\n"; 1N/A print "# '$_'\nnot ok $ord\n"; 1N/Aref $cstr # ref nonref 1N/A`$runme -e "print qq[1\\n]"` # backtick skip(MSWin32) 1N/A`$undefed` # backtick undef skip(MSWin32) 1N/A(@z = (1 .. 3)) # aassign 1N/A(chop (@x=@chopar)) # schop 1N/Achomp $chopit # chomp 1N/A(chop (@x=@chopar)) # schomp 1N/Apos $chopit # pos returns undef 1N/A"3$a"=='3fake' # concat with self in stringify 1N/A$n << $n # left_shift 1N/A$n >> $n # right_shift 1N/Alength $posstr # length 1N/Asubstr $posstr, 2, 2 # substr 1N/Aindex $posstr, 2 # index 1N/Arindex $posstr, 2 # rindex 1N/Asprintf "%i%i", $n, $n # sprintf 1N/Aucfirst ($cstr . "a") # ucfirst padtmp 1N/Aucfirst $cstr # ucfirst 1N/Alcfirst $cstr # lcfirst 1N/Aquotemeta $cstr # quotemeta 1N/A@$undefed # rv2av undef 1N/A(each %h) % 2 == 1 # each 1N/Apack "C2", $n,$n # pack 1N/Asplit /a/, "abad" # split 1N/Aunshift @aaa # unshift 1N/Areverse $cstr # reverse - scal 1N/Agrep $_, 1,0,2,0,3 # grepwhile 1N/Amap "x$_", 1,0,2,0,3 # mapwhile 1N/Awarn "ignore this\n" # warn 1N/Aopen BLAH, "<non-existent" # open 1N/Afileno STDERR # fileno 1N/Aselect STDOUT # sselect 1N/Aselect "","","",0 # select 1N/Asystem "$runme -e 0" # system skip(VMS) 1N/Agetpriority $$, $$ # getpriority 1N/Alocaltime $^T # localtime 1N/A'???' # sleep: can randomly fail