diff src/parallel_execution/lib/Gears/Util.pm @ 625:d02866506b9b

...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 09 Jun 2020 15:01:53 +0900
parents d560184a7ce7
children 670b972b6ff0
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Util.pm	Mon Jun 08 15:45:49 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Util.pm	Tue Jun 09 15:01:53 2020 +0900
@@ -90,7 +90,7 @@
         my $type = $2;
         my $vname = $3;
         next if ($type eq '__code');
-        $type =~ s/^(?:Impl|Type|Isa)\s*(\*)?/union Data $1/;
+        $type =~ s/^(?:Impl|Type|Isa)\s*(\*)?/union Data$1/;
         my $val = "$type $vname;\n";
         push(@tmp_args, $const_type ?  "$const_type $val" : $val);
       }