You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/12/24 00:15:26 UTC
cvs commit: modperl/t/net/perl request-param.pl request-post.pl
dougm 98/12/23 15:15:26
Added: t/net/perl request-param.pl
Removed: t/net/perl request-post.pl
Log:
oops
Revision Changes Path
1.1 modperl/t/net/perl/request-param.pl
Index: request-param.pl
===================================================================
use strict;
use Apache::test;
my $r = shift;
$r->send_http_header('text/plain');
eval {
require Apache::Request;
};
unless (Apache::Request->can('upload')) {
print "1..0\n";
print $@ if $@;
print "$INC{'Apache/Request.pm'}\n";
return;
}
my $apr = Apache::Request->new($r);
for ($apr->param) {
my(@v) = $apr->param($_);
print "param $_ => ", join ",", @v;
print $/;
}