Diff of /perl/modperl/trunk/t/response/TestModules/cgi.pm

Parent Directory | Revision Log | Patch

--- perl/modperl/trunk/t/response/TestModules/cgi.pm	2005/03/18 00:38:49	157999
+++ perl/modperl/trunk/t/response/TestModules/cgi.pm	2005/03/18 00:59:38	158000
@@ -15,6 +15,10 @@ sub handler {
         die "\$ENV{MOD_PERL} is not set";
     }
 
+    unless ($ENV{MOD_PERL_API_VERSION} == 2) {
+        die "\$ENV{MOD_PERL_API_VERSION} is not set";
+    }
+
     if ($CGI::Q) {
         die "CGI.pm globals were not reset";
     }