From: Jan P. <jp...@us...> - 2008-01-30 22:23:41
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/EPICTest In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv3124/workspace/EPICTest Modified Files: syntax.pl Log Message: Added syntax unit tests for bug [ 1882813 ] New Perl 5.10 operators. Index: syntax.pl =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/EPICTest/syntax.pl,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- syntax.pl 16 Nov 2007 20:50:46 -0000 1.18 +++ syntax.pl 30 Jan 2008 22:23:36 -0000 1.19 @@ -86,4 +86,28 @@ # bug 1833354 foo(key -=> 0); \ No newline at end of file +=> 0); + +# bug 1882813 +say "hi"; +my $amount ||= $product->cost; +$amount /= 5; +$amount **= 2; +$amount |= 2; +$amount &= 2; +$amount ^= 2; +$amount >>= 2; +$amount <<= 2; +my $str =~ /=/s; +print <<EOT; +heredoc here +EOT +$amount = $str // 5; +$amount //= $str; +$amount =~ //; +state $s1 = 100; +sub foo($_$) { } +UNITCHECK { } +$amount ~~ $str; +$amount ~~ /regex/s; +sub _bla {} \ No newline at end of file |