[PATCH] libwww 5.69

[Ilya Zakharevich]

This patch enables OS/2 build.

Thanks,
Ilya

--- ./t/local/http-get.t-pre    Thu Sep 18 23:16:02 2003
+++ ./t/local/http-get.t        Thu Sep 18 23:16:06 2003
@@ -40,7 +40,7 @@ if ($D eq 'daemon') {
 else {
     use Config;
     my $perl = $Config{'perlpath'};
-    $perl = $^X if $^O eq 'VMS';
+    $perl = $^X if $^O eq 'VMS' or -x $^X and $^X =~ m,^([a-z]:)?/,i;
     open(DAEMON, "$perl local/http-get.t daemon |") or die "Can't exec daemon: $!";
 }
 
--- ./t/local/http.t-pre        Mon Aug 27 20:34:04 2001
+++ ./t/local/http.t    Thu Sep 18 23:16:32 2003
@@ -37,7 +37,7 @@ if ($D eq 'daemon') {
 else {
     use Config;
     my $perl = $Config{'perlpath'};
-    $perl = $^X if $^O eq 'VMS';
+    $perl = $^X if $^O eq 'VMS' or -x $^X and $^X =~ m,^([a-z]:)?/,i;
     open(DAEMON, "$perl local/http.t daemon |") or die "Can't exec daemon: $!";
 }
 
--- ./t/robot/ua-get.t-pre      Sat Aug 17 19:41:58 2002
+++ ./t/robot/ua-get.t  Thu Sep 18 23:14:36 2003
@@ -38,7 +38,7 @@ if ($D eq 'daemon') {
 else {
     use Config;
     my $perl = $Config{'perlpath'};
-    $perl = $^X if $^O eq 'VMS';
+    $perl = $^X if $^O eq 'VMS' or -x $^X and $^X =~ m,^([a-z]:)?/,i;
     open(DAEMON , "$perl robot/ua.t daemon |") or die "Can't exec daemon: $!";
 }
 
--- ./t/robot/ua.t-pre  Fri Apr  7 05:12:22 2000
+++ ./t/robot/ua.t      Thu Sep 18 23:15:16 2003
@@ -38,7 +38,7 @@ if ($D eq 'daemon') {
 else {
     use Config;
     my $perl = $Config{'perlpath'};
-    $perl = $^X if $^O eq 'VMS';
+    $perl = $^X if $^O eq 'VMS' or -x $^X and $^X =~ m,^([a-z]:)?/,i;
     open(DAEMON , "$perl robot/ua.t daemon |") or die "Can't exec daemon: $!";
 }
 
--- ./t/TEST-pre        Sat Aug 17 19:17:36 2002
+++ ./t/TEST    Thu Sep 18 23:03:40 2003
@@ -12,7 +12,7 @@ unless (-d "base") {
 
     # fix all relative library locations
     foreach (@INC) {
-       $_ = "../$_" unless m,^/,;
+       $_ = "../$_" unless m,^([a-z]:)?[/\\],i;
     }
 }
 # Pick up the library files from the ../blib directory