open(FLAGS, $file) or return "";
while (<FLAGS>) {
if ($_ =~ /^\/\* \$CompileFlags: (.+) \*\/$/) {
+ my $x = translate_functions($1, $file);
+ next if ($x eq "");
close(FLAGS);
- return translate_functions($1,$file);
+ return $x;
}
}
close(FLAGS);
open(FLAGS, $file) or return "";
while (<FLAGS>) {
if ($_ =~ /^\/\* \$LinkerFlags: (.+) \*\/$/) {
+ my $x = translate_functions($1, $file);
+ next if ($x eq "");
close(FLAGS);
- return translate_functions($1,$file);
+ return $x;
}
}
close(FLAGS);
open(FLAGS, $file) or return "";
while (<FLAGS>) {
if ($_ =~ /^\/\* \$ModDep: (.+) \*\/$/) {
+ my $x = translate_functions($1, $file);
+ next if ($x eq "");
close(FLAGS);
- return translate_functions($1,$file);
+ return $x;
}
}
close(FLAGS);
open(FLAGS, $file) or return "";
while (<FLAGS>) {
if ($_ =~ /^\/\* \$NoPedantic \*\/$/) {
+ my $x = translate_functions($_, $file);
+ next if ($x eq "");
close(FLAGS);
return 1;
}