diff options
| author |   millert <millert@openbsd.org> | 2000-04-06 16:08:14 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2000-04-06 16:08:14 +0000 |
| commit | c8ca900353947dc5d441eb0530d040a27377e87a (patch) | |
| tree | 4d285b4c6eba04f0b54447330833c17180716716 /gnu/usr.bin/perl/t/lib/cgi-request.t | |
| parent | Fix typo introduce when removing smtpd MLINK (diff) | |
| download | wireguard-openbsd-c8ca900353947dc5d441eb0530d040a27377e87a.tar.xz wireguard-openbsd-c8ca900353947dc5d441eb0530d040a27377e87a.zip | |
virgin perl 5.6.0
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/cgi-request.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/cgi-request.t | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gnu/usr.bin/perl/t/lib/cgi-request.t b/gnu/usr.bin/perl/t/lib/cgi-request.t index 8c70c40350b..9e8cdc290ac 100644 --- a/gnu/usr.bin/perl/t/lib/cgi-request.t +++ b/gnu/usr.bin/perl/t/lib/cgi-request.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } BEGIN {$| = 1; print "1..31\n"; } @@ -25,15 +25,16 @@ sub test { } # Set up a CGI environment -$ENV{REQUEST_METHOD}='GET'; -$ENV{QUERY_STRING} ='game=chess&game=checkers&weather=dull'; -$ENV{PATH_INFO} ='/somewhere/else'; -$ENV{PATH_TRANSLATED} ='/usr/local/somewhere/else'; -$ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi'; +$ENV{REQUEST_METHOD} = 'GET'; +$ENV{QUERY_STRING} = 'game=chess&game=checkers&weather=dull'; +$ENV{PATH_INFO} = '/somewhere/else'; +$ENV{PATH_TRANSLATED} = '/usr/local/somewhere/else'; +$ENV{SCRIPT_NAME} = '/cgi-bin/foo.cgi'; $ENV{SERVER_PROTOCOL} = 'HTTP/1.0'; -$ENV{SERVER_PORT} = 8080; -$ENV{SERVER_NAME} = 'the.good.ship.lollypop.com'; -$ENV{HTTP_LOVE} = 'true'; +$ENV{SERVER_PORT} = 8080; +$ENV{SERVER_NAME} = 'the.good.ship.lollypop.com'; +$ENV{REQUEST_URI} = "$ENV{SCRIPT_NAME}$ENV{PATH_INFO}?$ENV{QUERY_STRING}"; +$ENV{HTTP_LOVE} = 'true'; $q = new CGI; test(2,$q,"CGI::new()"); |