[patch@33971[ CGI/t/upload*.t fixes for VMS

[John E. Malmberg]

VMS can not do list assignment to environment variables at this time, so 
break it up into individual assignments.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/lib/CGI/t/uploadInfo.t     Fri Mar 28 14:19:53 2008
+++ lib/CGI/t/uploadInfo.t      Mon Jun  2 22:05:03 2008
@@ -29,7 +29,8 @@
 # %ENV setup.
 #-----------------------------------------------------------------------------
 
-%ENV = (
+if ($^O ne 'VMS') {
+  %ENV = (
     %ENV,
     'SCRIPT_NAME'       => '/test.cgi',
     'SERVER_NAME'       => 'perl.org',
@@ -54,7 +55,32 @@
     'SERVER_ADDR'       => '127.0.0.1',
     'DOCUMENT_ROOT'     => '/home/develop',
     'HTTP_HOST'         => 'www.perl.org'
-);
+  );
+} else {
+    $ENV{'SCRIPT_NAME'} = '/test.cgi';
+    $ENV{'SERVER_NAME'} = 'perl.org';
+    $ENV{'HTTP_CONNECTION'} = 'TE, close';
+    $ENV{'REQUEST_METHOD'} = 'POST';
+    $ENV{'SCRIPT_URI'}  = 'http://www.perl.org/test.cgi';
+    $ENV{'CONTENT_LENGTH'} = 3285;
+    $ENV{'SCRIPT_FILENAME'} = '/home/usr/test.cgi';
+    $ENV{'SERVER_SOFTWARE'} = 'Apache/1.3.27 (Unix) ';
+    $ENV{'HTTP_TE'} = 'deflate,gzip;q=0.3';
+    $ENV{'QUERY_STRING'} = '';
+    $ENV{'REMOTE_PORT'} = '1855';
+    $ENV{'HTTP_USER_AGENT'} = 'Mozilla/5.0 (compatible; Konqueror/2.1.1; X11)';
+    $ENV{'SERVER_PORT'} = '80';
+    $ENV{'REMOTE_ADDR'} = '127.0.0.1';
+    $ENV{'CONTENT_TYPE'} = 'multipart/form-data; boundary=xYzZY';
+    $ENV{'SERVER_PROTOCOL'} = 'HTTP/1.1';
+    $ENV{'PATH'} = '/usr/local/bin:/usr/bin:/bin';
+    $ENV{'REQUEST_URI'} = '/test.cgi';
+    $ENV{'GATEWAY_INTERFACE'} = 'CGI/1.1';
+    $ENV{'SCRIPT_URL'} = '/test.cgi';
+    $ENV{'SERVER_ADDR'} = '127.0.0.1';
+    $ENV{'DOCUMENT_ROOT'} = '/home/develop';
+    $ENV{'HTTP_HOST'} = 'www.perl.org';
+}
 
 #-----------------------------------------------------------------------------
 # Simulate the upload (really, multiple uploads contained in a single stream).
--- /rsync_root/perl/lib/CGI/t/upload.t Wed Apr 30 08:04:01 2008
+++ lib/CGI/t/upload.t  Mon Jun  2 22:03:23 2008
@@ -29,7 +29,8 @@
 # %ENV setup.
 #-----------------------------------------------------------------------------
 
-%ENV = (
+if ($^O ne 'VMS') {
+  %ENV = (
     %ENV,
     'SCRIPT_NAME'       => '/test.cgi',
     'SERVER_NAME'       => 'perl.org',
@@ -54,7 +55,32 @@
     'SERVER_ADDR'       => '127.0.0.1',
     'DOCUMENT_ROOT'     => '/home/develop',
     'HTTP_HOST'         => 'www.perl.org'
-);
+  );
+} else {
+    $ENV{'SCRIPT_NAME'} = '/test.cgi';
+    $ENV{'SERVER_NAME'} = 'perl.org';
+    $ENV{'HTTP_CONNECTION'} = 'TE, close';
+    $ENV{'REQUEST_METHOD'} = 'POST';
+    $ENV{'SCRIPT_URI'}  = 'http://www.perl.org/test.cgi';
+    $ENV{'CONTENT_LENGTH'} = 3285;
+    $ENV{'SCRIPT_FILENAME'} = '/home/usr/test.cgi';
+    $ENV{'SERVER_SOFTWARE'} = 'Apache/1.3.27 (Unix) ';
+    $ENV{'HTTP_TE'} = 'deflate,gzip;q=0.3';
+    $ENV{'QUERY_STRING'} = '';
+    $ENV{'REMOTE_PORT'} = '1855';
+    $ENV{'HTTP_USER_AGENT'} = 'Mozilla/5.0 (compatible; Konqueror/2.1.1; X11)';
+    $ENV{'SERVER_PORT'} = '80';
+    $ENV{'REMOTE_ADDR'} = '127.0.0.1';
+    $ENV{'CONTENT_TYPE'} = 'multipart/form-data; boundary=xYzZY';
+    $ENV{'SERVER_PROTOCOL'} = 'HTTP/1.1';
+    $ENV{'PATH'} = '/usr/local/bin:/usr/bin:/bin';
+    $ENV{'REQUEST_URI'} = '/test.cgi';
+    $ENV{'GATEWAY_INTERFACE'} = 'CGI/1.1';
+    $ENV{'SCRIPT_URL'} = '/test.cgi';
+    $ENV{'SERVER_ADDR'} = '127.0.0.1';
+    $ENV{'DOCUMENT_ROOT'} = '/home/develop';
+    $ENV{'HTTP_HOST'} = 'www.perl.org';
+}
 
 #-----------------------------------------------------------------------------
 # Simulate the upload (really, multiple uploads contained in a single stream).