typo: $::from

diff --git a/SL/Auth.pm b/SL/Auth.pm
index cd16c8e0bc48c4541adb5290bcff3b732b48008e..73a37c5ebebe555094af66a39c4d0137635e8660 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -970,7 +970,7 @@ sub delete_group {
   my $self = shift;
   my $id   = shift;
 
-  my $form = $main::from;
+  my $form = $main::form;
 
   my $dbh  = $self->dbconnect();
   $dbh->begin_work;