changeset 182:d00a1d0758cb

tweak
author anatofuz
date Mon, 20 Jan 2020 17:30:08 +0900
parents f431400da994
children 8c39a36878b1
files src/gearsTools/lib/Gears/Context.pm
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/lib/Gears/Context.pm	Mon Jan 20 17:10:58 2020 +0900
+++ b/src/gearsTools/lib/Gears/Context.pm	Mon Jan 20 17:30:08 2020 +0900
@@ -111,6 +111,7 @@
     }
     close $fh;
   }
+  use Data::Dumper;
 
   for my $cg_name (keys %include_pool) {
     my @tmp_cbc_file_names  = keys %{$include_pool{$cg_name}};
@@ -118,13 +119,13 @@
     if (exists $counter{interfaces}->{$cg_name}){
       push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
       delete $include_pool{$cg_name};
-      last;
+      next;
     }
 
     if (exists $counter{impl}->{$cg_name}){
       push(@{$counter{impl}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
       delete $include_pool{$cg_name};
-      last;
+      next;
     }
     push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
     delete $include_pool{$cg_name};
@@ -133,7 +134,6 @@
   $counter{interfaces}->{Meta}++;
   $counter{interfaces}->{TaskManager}++;
   print "-----------\n";
-  use Data::Dumper;
   print Dumper \%counter;
   print "-----------\n";
   return \%counter;