Mercurial > hg > Gears > Gears
changeset 721:9357393cc9a0
...
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 06 Nov 2020 16:31:53 +0900 |
parents | de34a5f91c62 |
children | 7ff9d6caa3a0 13267f35c286 |
files | src/parallel_execution/lib/Gears/Interface.pm |
diffstat | 1 files changed, 2 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Interface.pm Fri Nov 06 16:26:09 2020 +0900 +++ b/src/parallel_execution/lib/Gears/Interface.pm Fri Nov 06 16:31:53 2020 +0900 @@ -22,12 +22,9 @@ my $dir_name = dirname(File::Spec->rel2abs($file)); - while ($line =~ /#include\s+"([\w\/\.]+)"/) { my $header_file = $1; - if ($header_file =~ m|\./context\.h|) { - next; - } + next if ($header_file =~ m|\./context\.h|); push(@{$ir->{cbc_context_include_headers}}, "$dir_name/$header_file"); $line = <$fh>; } @@ -108,9 +105,7 @@ my ($class, $file) = @_; my $ir = Gears::Interface->parse($file); - unless ($ir) { - return undef; - } + return undef unless ($ir); $ir->{hasOutputArgs} = {};