cvs commit: modperl-2.0/t TEST.PL

[dougm]

dougm       01/04/04 10:24:37

  Modified:    t        TEST.PL
  Log:
  make sure $^X is an absolute path
  
  Revision  Changes    Path
  1.3       +3 -0      modperl-2.0/t/TEST.PL
  
  Index: TEST.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/TEST.PL,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- TEST.PL   2001/04/03 04:23:46     1.2
  +++ TEST.PL   2001/04/04 17:24:36     1.3
  @@ -2,9 +2,12 @@
   
   use strict;
   use warnings FATAL => 'all';
  +use Config;
   
   use lib map { "$_/Apache-Test/lib" } qw(. ..);
   
   use Apache::TestRunPerl ();
  +
  +$^X = $Config{perlpath} if $^X eq 'perl';
   
   Apache::TestRunPerl->new->run(@ARGV);