Mercurial > hg > Gears > Gears

changeset 726:8520b8b3c891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 18 Nov 2020 17:17:38 +0900
parents d15c754615da
children 6f84612617d8
files src/parallel_execution/lib/Gears/Interface.pm
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Interface.pm	Wed Nov 18 17:06:09 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Interface.pm	Wed Nov 18 17:17:38 2020 +0900
@@ -57,7 +57,7 @@
   }
 
   my @data_gears;
-  my $inner_code_gears;
+  my %inner_code_gears;
 
   while ($line = <$fh>) {
     chomp $line;
@@ -87,7 +87,7 @@
         my $type = $2;
         my $vname = $3;
         if ($type eq '__code') {
-          $inner_code_gears->{$vname} = 1; #collect inner code gears (ex. next, whenEmpty)
+          $inner_code_gears{$vname} = 1; #collect inner code gears (ex. next, whenEmpty)
           next;
         }
         next unless $vname; # __code hoge(int ret, __code next(ret, ...); this is second "ret" case
@@ -105,7 +105,7 @@
     $static_data_gear_write_mode = 1;
   }
 
-  $ir->{inner_code_gears} = $inner_code_gears;
+  $ir->{inner_code_gears} = \%inner_code_gears;
   push(@{$ir->{content}}, Gears::Util->uniq(@data_gears));
   return $ir;
 }