Code-Vereinfachung: Unnötige Variable weglassen.

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index 230ac2b..a744892 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 $header;
   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};