From 0503e56b6de6c32a88289d4d0cbd6998ab22e281 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 22 May 2012 08:25:44 +0200
Subject: [PATCH] Form::error nur als Instanz-, nicht als Klassenmethode
 aufrufen
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Fix für 1892.
---
 SL/Inifile.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/SL/Inifile.pm b/SL/Inifile.pm
index 6895d6030..43689d1c0 100644
--- a/SL/Inifile.pm
+++ b/SL/Inifile.pm
@@ -51,7 +51,7 @@ sub new {
 
   my $self = { "FILE" => $file };
 
-  open FH, "$file" or Form->error("$file : $!");
+  open FH, "$file" or $::form->error("$file : $!");
 
   while (<FH>) {
     chomp;
@@ -101,7 +101,7 @@ sub write {
   my ($self) = @_;
 
   my $file = $self->{FILE};
-  my $fh   = IO::File->new($file, "w") || Form->error("$file : $!");
+  my $fh   = IO::File->new($file, "w") || $::form->error("$file : $!");
 
   foreach my $section_name (sort keys %{ $self }) {
     next if $section_name =~ m/^[A-Z]+$/;
@@ -118,4 +118,3 @@ sub write {
 }
 
 1;
-
-- 
2.20.1