perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/hooks/TestHooks cleanup2.pm
Date Thu, 07 Aug 2003 19:01:09 GMT
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 {
  
  
  

Mime
View raw message