From 0eb1af1c58e920e15011c485642183d99adec3a8 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 14 Sep 2007 14:08:17 +0000
Subject: [PATCH] Vor dem Aufruf von Funktionen auf der Instanz $self muss
 $self ge-blesst werden.

---
 SL/ReportGenerator.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index cdcf18fab..746945108 100644
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -48,9 +48,11 @@ sub new {
 
   $self->{data_present} = 0;
 
+  bless $self, $type;
+
   $self->set_options(@_) if (@_);
 
-  return bless $self, $type;
+  return $self;
 }
 
 sub set_columns {
-- 
2.20.1