stas 2004/07/09 00:37:58
Modified: t/response/TestAPI server_util.pm
Log:
avoid long lines
Revision Changes Path
1.21 +8 -7 modperl-2.0/t/response/TestAPI/server_util.pm
Index: server_util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -u -r1.20 -r1.21
--- server_util.pm 8 Jul 2004 05:29:42 -0000 1.20
+++ server_util.pm 9 Jul 2004 07:37:58 -0000 1.21
@@ -74,18 +74,19 @@
foreach my $p (keys %pools) {
- ok t_filepath_cmp(canonpath(Apache::server_root_relative($pools{$p},
- 'conf')),
- catfile($serverroot, 'conf'),
- "Apache:::server_root_relative($p, 'conf')");
+ ok t_filepath_cmp(
+ canonpath(Apache::server_root_relative($pools{$p},'conf')),
+ catfile($serverroot, 'conf'),
+ "Apache:::server_root_relative($p, 'conf')");
}
# dig out the pool from valid objects
foreach my $obj (keys %objects) {
- ok t_filepath_cmp(canonpath($objects{$obj}->server_root_relative('conf')),
- catfile($serverroot, 'conf'),
- "$obj->server_root_relative('conf')");
+ ok t_filepath_cmp(
+ canonpath($objects{$obj}->server_root_relative('conf')),
+ catfile($serverroot, 'conf'),
+ "$obj->server_root_relative('conf')");
}
# syntax - unrecognized objects don't segfault
