[Rt-commit] [svn] r1445 - in rt/branches/3.3-TESTING: . lib/RT/Interface/Web

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Wed Sep  8 01:24:22 2004
New Revision: 1445

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/lib/RT/Interface/Web/Handler.pm
Log:
 r10179 at tinbook:  jesse | 2004-09-08T05:17:10.044025Z
 Fixed a bug in the web handler that would throw an error when not running in a modperl environemnt


Modified: rt/branches/3.3-TESTING/lib/RT/Interface/Web/Handler.pm
==============================================================================
--- rt/branches/3.3-TESTING/lib/RT/Interface/Web/Handler.pm	(original)
+++ rt/branches/3.3-TESTING/lib/RT/Interface/Web/Handler.pm	Wed Sep  8 01:24:22 2004
@@ -72,16 +72,17 @@
     if ($MasonX::Apache2Handler::VERSION) {
         goto &NewApache2Handler;
     }
-    elsif ($mod_perl::VERSION >= 1.9908) {
-	require Apache::RequestUtil;
-	no warnings 'redefine';
-	my $sub = *Apache::request{CODE};
-	*Apache::request = sub {
-	    my $r;
-	    eval { $r = $sub->('Apache'); };
-	    # warn $@ if $@;
-	    return $r;
-	};
+    elsif ( $mod_perl::VERSION && $mod_perl::VERSION >= 1.9908 ) {
+        require Apache::RequestUtil;
+        no warnings 'redefine';
+        my $sub = *Apache::request{CODE};
+        *Apache::request = sub {
+            my $r;
+            eval { $r = $sub->('Apache'); };
+
+            # warn $@ if $@;
+            return $r;
+        };
         goto &NewApacheHandler;
     }
     elsif ($CGI::MOD_PERL) {