From 3f93023866418c0ffa28622e00af120975e3c105 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <moritz@bunkus.org>
Date: Wed, 27 Apr 2011 10:37:38 +0200
Subject: [PATCH] Nach $form->redirect() den Request beenden

---
 SL/Form.pm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 31020aebc..b63421750 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -996,17 +996,13 @@ sub redirect {
   my ($self, $msg) = @_;
 
   if (!$self->{callback}) {
-
     $self->info($msg);
-    ::end_of_request();
-  }
 
-#  my ($script, $argv) = split(/\?/, $self->{callback}, 2);
-#  $script =~ s|.*/||;
-#  $script =~ s|[^a-zA-Z0-9_\.]||g;
-#  exec("perl", "$script", $argv);
+  } else {
+    print $::form->redirect_header($self->{callback});
+  }
 
-  print $::form->redirect_header($self->{callback});
+  ::end_of_request();
 
   $main::lxdebug->leave_sub();
 }
-- 
2.20.1