stas 2004/09/08 16:46:14
Modified: t/modules reload.t
Log:
simplify
Revision Changes Path
1.2 +2 -2 modperl-2.0/t/modules/reload.t
Index: reload.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/reload.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- reload.t 24 Aug 2004 17:36:56 -0000 1.1
+++ reload.t 8 Sep 2004 23:46:13 -0000 1.2
@@ -62,8 +62,8 @@
}
sub test_file {
- return catfile(Apache::Test::vars()->{"serverroot"}, 'lib','Apache',
- 'Reload','Test.pm');
+ return catfile Apache::Test::vars("serverroot"),
+ qw(lib Apache Reload Test.pm);
}
# if we fail to find the same interpreter, return undef (this is not
