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