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 21:59:48 UTC
cvs commit: modperl/t/net/perl request-cookie.pl
dougm 98/12/24 12:59:47
Modified: t/net/perl request-cookie.pl
Log:
oops
Revision Changes Path
1.2 +12 -3 modperl/t/net/perl/request-cookie.pl
Index: request-cookie.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/request-cookie.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- request-cookie.pl 1998/12/24 19:20:17 1.1
+++ request-cookie.pl 1998/12/24 20:59:47 1.2
@@ -2,9 +2,18 @@
use Apache::test;
-use Apache::Request ();
-use Apache::Cookie ();
-use CGI::Cookie ();
+eval {
+ require Apache::Request;
+ require Apache::Cookie;
+ require CGI::Cookie;
+};
+
+unless (Apache::Request->can('upload')) {
+ print "1..0\n";
+ print $@ if $@;
+ print "$INC{'Apache/Request.pm'}\n";
+ return;
+}
my $r = shift;
$r->send_http_header('text/plain');