$^X rather than $Config{perlpath}

Roderick Schertler (roderick@argon.org)
Wed, 07 Apr 1999 15:55:30 -0400 

This replaces $Config{perlpath} with $^X.  This is, I think, more correct
and simpler anyway.  $Config{perlpath} is generally /usr/local/bin/perl
so it won't be correct if multiple versions are installed but the user is
running a different one.

Index: t/local/http.t
--- libwww-perl-5.42/t/local/http.t	Fri Mar 19 16:09:34 1999
+++ libwww-perl/t/local/http.t	Wed Apr  7 15:36:45 1999
@@ -35,8 +35,7 @@
     exit;
 }
 else {
-    use Config;
-    open(DAEMON, "$Config{'perlpath'} local/http.t daemon |") or die "Can't exec daemon: $!";
+    open(DAEMON, "$^X local/http.t daemon |") or die "Can't exec daemon: $!";
 }
 
 print "1..18\n";
Index: t/robot/ua.t
--- libwww-perl-5.42/t/robot/ua.t	Fri Mar 19 16:10:08 1999
+++ libwww-perl/t/robot/ua.t	Wed Apr  7 15:51:06 1999
@@ -36,8 +36,7 @@
     exit;
 }
 else {
-    use Config;
-    open(DAEMON , "$Config{'perlpath'} robot/ua.t daemon |") or die "Can't exec daemon: $!";
+    open(DAEMON , "$^X robot/ua.t daemon |") or die "Can't exec daemon: $!";
 }
 
 print "1..7\n";

-- 
Roderick Schertler
roderick@argon.org