changeset 620:68e0b5fa6464

...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 30 May 2020 07:44:14 +0900
parents 3330001e7078
children 30f37074a7ac
files src/parallel_execution/cleanup.sh src/parallel_execution/lib/Gears/Util.pm
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Util.pm	Sat May 30 07:37:09 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Util.pm	Sat May 30 07:44:14 2020 +0900
@@ -68,9 +68,7 @@
         my $type = $2;
         my $vname = $3;
         next if ($type eq '__code');
-        unless ($const_type) {
-          $type =~ s/(?:Impl|Type|Isa)/union Data/;
-        }
+        $type =~ s/^(?:Impl|Type|Isa)\s*(\*)/union Data $1/;
         my $val = "$type $vname;\n";
         push(@tmp_args, $const_type ?  "$const_type $val" : $val);
       }