From: Moritz Bunkus Date: Fri, 14 Sep 2007 14:08:17 +0000 (+0000) Subject: Vor dem Aufruf von Funktionen auf der Instanz $self muss $self ge-blesst werden. X-Git-Tag: release-2.6.0beta1~493 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0eb1af1c58e920e15011c485642183d99adec3a8;p=kivitendo-erp.git 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 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 {