[Mungo-devel] [mungo commit] r107 - in trunk/lib: . Mungo

svn-commit at lists.omniti.com svn-commit at lists.omniti.com
Tue Jan 26 18:31:21 EST 2010


Author: jesus
Date: 2010-01-26 18:31:21 -0500 (Tue, 26 Jan 2010)
New Revision: 107

Modified:
   trunk/lib/Mungo.pm
   trunk/lib/Mungo/Quiet.pm
Log:
Fix OK symbole and always call End() -- we might do something useful in there.  wink

Modified: trunk/lib/Mungo/Quiet.pm
===================================================================
--- trunk/lib/Mungo/Quiet.pm	2010-01-26 23:24:52 UTC (rev 106)
+++ trunk/lib/Mungo/Quiet.pm	2010-01-26 23:31:21 UTC (rev 107)
@@ -133,6 +133,8 @@
             $self->Response()->Include($r->filename);
             if ($DEBUG) { print STDERR __PACKAGE__ . ':' . __LINE__ . "- Survived Include \n"; }
         }
+
+        $self->Response()->End();
     };
 
     # CODE HERE WILL NEVER GET EXECUTED

Modified: trunk/lib/Mungo.pm
===================================================================
--- trunk/lib/Mungo.pm	2010-01-26 23:24:52 UTC (rev 106)
+++ trunk/lib/Mungo.pm	2010-01-26 23:31:21 UTC (rev 107)
@@ -242,9 +242,9 @@
 use strict;
 use IO::File;
 eval "
+  use Apache2::Const qw ( OK NOT_FOUND DECLINED SERVER_ERROR);
   use Apache2::RequestRec;
   use Apache2::RequestUtil;
-  use Apache2::Const qw ( OK NOT_FOUND DECLINED SERVER_ERROR);
 ";
 if($@) {
   print STDERR "mod_perl2 not found: $@";
@@ -312,19 +312,20 @@
     }
     $self->Response()->Include($r->filename)
       if($doit == Apache2::Const::DECLINED());
+    $self->Response()->End();
   };
   if($@) {
     # print out the error to the logs
     print STDERR $@ if($@);
     # If it isn't too late, make this an internal server error
-    eval { $self->Response()->{Status} = 500; };
+    eval { $self->Response()->{Status} = 500; $self->Response()->End() };
   }
 
   # gotos come here from:
   #   $Response->End()
  MUNGO_HANDLER_FINISH:
   $self->Response()->finish();
-  my $code = $self->{data}->{ApacheResponseCode} || OK;
+  my $code = $self->{data}->{ApacheResponseCode} || Apache2::Const::OK;
   $self->cleanse();
   undef $main::Request;
   undef $main::Response;



More information about the Mungo-devel mailing list