stas 2003/08/07 12:01:09
Modified: t/hooks/TestHooks cleanup2.pm
Log:
should use catfile and not catdir
Revision Changes Path
1.3 +2 -2 modperl-2.0/t/hooks/TestHooks/cleanup2.pm
Index: cleanup2.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/cleanup2.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cleanup2.pm 30 May 2003 02:15:52 -0000 1.2
+++ cleanup2.pm 7 Aug 2003 19:01:09 -0000 1.3
@@ -9,7 +9,7 @@
use Apache::TestUtil;
use Apache::TestTrace;
-use File::Spec::Functions qw(catdir);
+use File::Spec::Functions qw(catfile);
use Apache::RequestRec ();
use Apache::RequestIO ();
@@ -19,7 +19,7 @@
use Apache::Const -compile => qw(OK DECLINED);
use APR::Const -compile => 'SUCCESS';
-my $file = catdir Apache::Test::config->{vars}->{documentroot},
+my $file = catfile Apache::Test::config->{vars}->{documentroot},
"hooks", "cleanup2";
sub handler {
