From 807f13a3f3512ead7e2634511068c43aa8201f5f Mon Sep 17 00:00:00 2001
From: Mat Sutcliffe <oktal3700@gmail.com>
Date: Fri, 7 Aug 2020 00:02:36 +0100
Subject: [PATCH] Fix warning in script

---
 scripts/warnings.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/scripts/warnings.pl b/scripts/warnings.pl
index 0962787d6..b47990eef 100644
--- a/scripts/warnings.pl
+++ b/scripts/warnings.pl
@@ -49,8 +49,8 @@ sub extractGccWarning
     $line =~ 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, $loc) = ($+{file}, split ':', $+{loc});
-    return (file => $file, line => $loc, msg => $msg);
+    my ($file, $line) = ($+{file}, split ':', $+{loc});
+    return (file => $file, line => $line, msg => $msg);
 }
 
 sub extractMsvcWarning
@@ -59,8 +59,8 @@ sub extractMsvcWarning
     $line =~ 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, $loc) = ($+{file}, split ',', $+{loc});
-    return (file => $file, line => $loc, msg => $msg);
+    my ($file, $line) = ($+{file}, split ',', $+{loc});
+    return (file => $file, line => $line, msg => $msg);
 }
 
 sub toRelativePath