typo: $::from

diff --git a/SL/Auth.pm b/SL/Auth.pm
index cd16c8e..73a37c5 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;