From: Sven Schöling Date: Wed, 14 Sep 2011 10:40:26 +0000 (+0200) Subject: Csv Import Helper: classenlose profile dürfen den Dispatcher nicht abschiessen. X-Git-Tag: release-2.7.0beta1~290 X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/457ad636fb2b6c668fd2ea88991f5f02afb20f3d?ds=inline;hp=-c Csv Import Helper: classenlose profile dürfen den Dispatcher nicht abschiessen. --- 457ad636fb2b6c668fd2ea88991f5f02afb20f3d diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm index 6375daf03..be3faddd6 100644 --- a/SL/Helper/Csv/Dispatcher.pm +++ b/SL/Helper/Csv/Dispatcher.pm @@ -93,6 +93,8 @@ sub make_spec { my $spec = { key => $col, steps => [] }; my $cur_class = $self->_csv->class; + return unless $cur_class; + for my $step_index ( split /\.(?!\d)/, $path ) { my ($step, $index) = split /\./, $step_index; if ($cur_class->can($step)) {