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} = {};