X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=20046a6606bfde2b37b9804a0264081d329d75de;hb=ed2bc6057ed94ae64e5b03ff28477fcbac52f4ee;hp=3ea2d28479dc28d49430c893ba6b7fc18765b3ae;hpb=373c588aa7b5a4f0d99a5940fade8a767c6d9426;p=maypole.git
diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 3ea2d28..20046a6 100644
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -197,8 +197,7 @@ can only be combined with status.
sub redirect_request {
my $r = shift;
my $redirect_url = $_[0];
- my $status = $MODPERL2 ? eval 'Apache2::Const::REDIRECT;' :
- eval 'Apache::Constants::REDIRECT;'; # why have to eval this?
+ my $status = $MODPERL2 ? eval 'Apache2::Const::REDIRECT;' : eval 'Apache::Constants::REDIRECT;';
if ($_[1]) {
my %args = @_;
if ($args{url}) {
@@ -218,6 +217,7 @@ sub redirect_request {
$r->ar->status($status);
$r->ar->headers_out->set('Location' => $redirect_url);
+ $r->output('redirecting...redirecting..
') unless ($r->output)
return OK;
}