From: Jan P. <jp...@us...> - 2007-09-09 15:11:36
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/EPICTest In directory sc8-pr-cvs17:/tmp/cvs-serv12970/workspace/EPICTest Modified Files: Tag: stable test_Folding.pl Log Message: Merged unit test for bug [ 1772573 ] subroutine folding fails if all parameters are optional from 'testing'. Index: test_Folding.pl =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/EPICTest/test_Folding.pl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -u -d -r1.1.2.2 -r1.1.2.3 --- test_Folding.pl 6 Apr 2007 15:06:01 -0000 1.1.2.2 +++ test_Folding.pl 9 Sep 2007 15:11:32 -0000 1.1.2.3 @@ -22,6 +22,12 @@ sub sixth; # no folding +sub optional_1(;$) { +} + +sub optional_2($;$) { +} + if (1) { |