Vor dem Aufruf von Funktionen auf der Instanz $self muss $self ge-blesst werden.

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index cdcf18fabf782b1ed376790e7db7b2b4653acf1c..746945108cda180391e9e45f628bbd68fc07b0e4 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -48,9 +48,11 @@ sub new {
 
   $self->{data_present} = 0;
 
 
   $self->{data_present} = 0;
 

+  bless $self, $type;
+

   $self->set_options(@_) if (@_);
 
   $self->set_options(@_) if (@_);
 

-  return bless $self, $type;
+  return $self;

 }
 
 sub set_columns {
 }
 
 sub set_columns {