geoff 2004/10/25 00:30:53
Modified: perl-framework/Apache-Test/lib/Apache TestConfigPHP.pm Log: move to perl-style comments Revision Changes Path 1.3 +3 -5 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm Index: TestConfigPHP.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- TestConfigPHP.pm 25 Oct 2004 02:03:36 -0000 1.2 +++ TestConfigPHP.pm 25 Oct 2004 07:30:52 -0000 1.3 @@ -184,8 +184,8 @@ __DATA__ <?php -// more.php based on work from Andy Lester. see -// http://use.perl.org/~petdance/journal/14227 +# more.php based on work from Andy Lester. see +# http://use.perl.org/~petdance/journal/14227 $_test_ntests = 0; $_nfailures = 0; @@ -277,8 +277,6 @@ return ok( preg_match( $regex, $string ), $name ); } -// We diag() to stderr instead of stdout like Perl does. It shouldn't -// make any difference to the harness. function diag( $lines ) { if ( is_string( $lines ) ) { $lines = split( "\n", $lines ); @@ -305,7 +303,7 @@ print "1..$_test_ntests\n"; } - // reset for next run + # reset for next run global $_test_ntests; global $_no_plan; global $_nfailures;