[Mungo-devel] [mungo commit] r103 - trunk/lib/Mungo

svn-commit at lists.omniti.com svn-commit at lists.omniti.com
Thu Jan 7 13:40:54 EST 2010


Author: jesus
Date: 2010-01-07 13:40:54 -0500 (Thu, 07 Jan 2010)
New Revision: 103

Modified:
   trunk/lib/Mungo/Quiet.pm
Log:
actually set the used error code to 500, refs #16

Modified: trunk/lib/Mungo/Quiet.pm
===================================================================
--- trunk/lib/Mungo/Quiet.pm	2010-01-07 18:34:53 UTC (rev 102)
+++ trunk/lib/Mungo/Quiet.pm	2010-01-07 18:40:54 UTC (rev 103)
@@ -158,6 +158,7 @@
     my $response = shift; # A Mungo::Response object
     my $error = shift; # A Mungo::Error object, or a plain string
     my $subject = shift; # Either a coderef or a filename
+    my $thing = tied %{$response};
 
     if ($DEBUG) { print STDERR __PACKAGE__ . ':' . __LINE__ . "- In qME\n"; }
 
@@ -165,6 +166,7 @@
     my $errstr = $have_obj ? $error->{error} : $error;
 
     # Most importantly, set the apache error response
+    $thing->{data}->{Status} = SERVER_ERROR;
     $response->{Mungo}->{data}->{ApacheResponseCode} = SERVER_ERROR;
 
     print STDERR "Mungo error in file $subject:\n";



More information about the Mungo-devel mailing list