flightsimulatorplatfrom/pilotclient
1
0
Fork 0
mirror of https://github.com/swift-project/pilotclient.git synced 2026-03-22 06:45:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

[CI] Fix warnings in warning filter script

Browse Source
This commit is contained in:
Mat Sutcliffe
2021-10-13 21:15:23 +01:00
parent 29f1b9e85d
commit 32d9a9d22c
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/warnings.pl
View File

@@ -39,16 +39,16 @@ print "::set-output name=warnings::$bool\n";
sub extractWarning
{
my $line = shift;
my %result = extractGccWarning($line);
my $text = shift;
my %result = extractGccWarning($text);
return %result if %result;
return extractMsvcWarning($line);
return extractMsvcWarning($text);
}
sub extractGccWarning
{
my $line = shift;
$line =~ m(^\s*(?<loc>.*?): warning: (?<msg>.*)$) or return ();
my $text = shift;
$text =~ m(^\s*(?<loc>.*?): warning: (?<msg>.*)$) or return ();
my ($loc, $msg) = @+{ qw(loc msg) };
$loc =~ m(^(?<file>.*?):(?<loc>[0-9:]+)$) or return (file => $loc, msg => $msg);
my ($file, $line) = ($+{file}, split ':', $+{loc});
@@ -57,8 +57,8 @@ sub extractGccWarning
sub extractMsvcWarning
{
my $line = shift;
$line =~ m(^\s*(?<loc>.*?): warning (?<msg>[A-Z]+[0-9]+: .*)$) or return ();
my $text = shift;
$text =~ m(^\s*(?<loc>.*?): warning (?<msg>[A-Z]+[0-9]+: .*)$) or return ();
my ($loc, $msg) = @+{ qw(loc msg) };
$loc =~ m(^(?<file>.*)\((?<loc>[0-9,]+)\)$) or return (file => $loc, msg => $msg);
my ($file, $line) = ($+{file}, split ',', $+{loc});