Code-Vereinfachung: Unnötige Variable weglassen.

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index 230ac2b42c84f5a756c06b560688e558e8e66043..a744892c14bda100db2e6c69d4d6e5190be95335 100644 (file)
--- a/SL/Helper/Csv/Dispatcher.pm
+++ b/SL/Helper/Csv/Dispatcher.pm
@@ -108,12 +108,10 @@ sub parse_profile {
 
   my $profile;
   my $class;
 
   my $profile;
   my $class;

-  my $header;

   my @specs;
 
   my $i = 0;
   my @specs;
 
   my $i = 0;

-  foreach my $h (@{ $self->_csv->header }) {
-    $header = $h;
+  foreach my $header (@{ $self->_csv->header }) {

     if ($self->_csv->profile) {
       $profile = $self->_csv->profile->[$i]->{profile};
       $class   = $self->_csv->profile->[$i]->{class};
     if ($self->_csv->profile) {
       $profile = $self->_csv->profile->[$i]->{profile};
       $class   = $self->_csv->profile->[$i]->{class};