Use Apache2::RequestUtil->request() properly

webtools/litmus/Litmus.pm

@@ -100,7 +100,7 @@ sub request_cache {
     if ($ENV{MOD_PERL}) {
     	my $request;
     	if (MP2) {
-    		$request = Apache2::RequestUtil::request();
+    		$request = Apache2::RequestUtil->request();
     	} elsif (MP1) {
     		$request = Apache->request();
     	}

webtools/litmus/Litmus/DBI.pm

@@ -120,7 +120,7 @@ sub db_Main {
    if (MP1) {
        $request = Apache->request();
    } elsif (MP2) {
-       $request = Apache2::RequestUtil::request();
+       $request = Apache2::RequestUtil->request();
    }
    if ( $ENV{'MOD_PERL'} and defined $request ) {
 	   $dbh = $request->pnotes('dbh');

webtools/litmus/Litmus/Memoize.pm

@@ -50,7 +50,7 @@ sub memoize {
 	my $fn = shift;
 	my %options = @_;
 	
-	if (MP2 && ! Apache2::RequestUtil::request()) {
+	if (MP2 && ! Apache2::RequestUtil->request()) {
 		return;	
 	} if (MP1 && ! Apache->request()) {
 		return;
@@ -75,7 +75,7 @@ sub memoize {
 	if (MP1) {
 		 $cache = Apache->request()->pnotes();
 	} elsif (MP2) {
-		$cache = Apache2::RequestUtil::request()->pnotes();
+		$cache = Apache2::RequestUtil->request()->pnotes();
 	}
 	$cache->{'S'.$fn} = {};
 	$cache->{'L'.$fn} = {};