stas 2003/08/07 11:58:54
Modified: t/hooks/TestHooks cleanup.pm
Log:
should use catfile and not catdir
Revision Changes Path
1.3 +3 -3 modperl-2.0/t/hooks/TestHooks/cleanup.pm
Index: cleanup.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/cleanup.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cleanup.pm 18 Apr 2003 06:18:57 -0000 1.2
+++ cleanup.pm 7 Aug 2003 18:58:54 -0000 1.3
@@ -1,6 +1,6 @@
package TestHooks::cleanup;
-# test various ways to push handlers
+# test various ways to assign cleanup handlers
use strict;
use warnings FATAL => 'all';
@@ -8,7 +8,7 @@
use Apache::Test;
use Apache::TestUtil;
-use File::Spec::Functions qw(catfile catdir);
+use File::Spec::Functions qw(catfile);
use Apache::RequestRec ();
use Apache::RequestIO ();
@@ -17,7 +17,7 @@
use Apache::Const -compile => qw(OK DECLINED);
sub get_file {
- catdir Apache::Test::config->{vars}->{documentroot}, "hooks", "cleanup";
+ catfile Apache::Test::config->{vars}->{documentroot}, "hooks", "cleanup";
}
sub handler {
