qemu-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Qemu-devel] [PULL 1/1] checkpatch: fix incompatibility with old perl


From: Stefan Hajnoczi
Subject: [Qemu-devel] [PULL 1/1] checkpatch: fix incompatibility with old perl
Date: Thu, 5 Oct 2017 10:25:47 -0400

From: Vladimir Sementsov-Ogievskiy <address@hidden>

Do not use '/r' modifier which was introduced in perl 5.14.

Signed-off-by: Vladimir Sementsov-Ogievskiy <address@hidden>
Reviewed-by: Daniel P. Berrange <address@hidden>
Fixes: 3e5875afc0f ("checkpatch: check trace-events code style")
Tested-by: Alex Williamson <address@hidden>
Message-id: address@hidden
Signed-off-by: Stefan Hajnoczi <address@hidden>
---
 scripts/checkpatch.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
index 3c0a28e644..0c41f1212f 100755
--- a/scripts/checkpatch.pl
+++ b/scripts/checkpatch.pl
@@ -1432,7 +1432,8 @@ sub process {
                                        qr/%[-+ 
*.0-9]*([hljztL]|ll|hh)?(x|X|"\s*PRI[xX][^"]*"?)/;
 
                                # don't consider groups splitted by [.:/ ], 
like 2A.20:12ab
-                               my $tmpline = $rawline =~ s/($hex[.:\/ 
])+$hex//gr;
+                               my $tmpline = $rawline;
+                               $tmpline =~ s/($hex[.:\/ ])+$hex//g;
 
                                if ($tmpline =~ /(?<!0x)$hex/) {
                                        ERROR("Hex numbers must be prefixed 
with '0x'\n" .
-- 
2.13.6




reply via email to

[Prev in Thread] Current Thread [Next in Thread]