From 35f31019faa82c705ec9ef5ca33c4681d55d0d23 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Mon, 12 Feb 2018 13:52:37 +0200
Subject: Fix perl warning . MGA#22293 .

See https://bugs.mageia.org/show_bug.cgi?id=22293 .
---
 monitor-parse-edid | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'monitor-parse-edid')

diff --git a/monitor-parse-edid b/monitor-parse-edid
index c2c9d7a..7fd5fe4 100755
--- a/monitor-parse-edid
+++ b/monitor-parse-edid
@@ -55,7 +55,7 @@ foreach my $raw_edid (@raw_edids) {
 	use Data::Dumper;
 	$Data::Dumper::Sortkeys = 1;
 	my $s = Dumper($edid);
-	$s =~ s/.*? = {/+{/;	# remove variable name we don't want
+	$s =~ s/.*? = \{/+{/;	# remove variable name we don't want
 	$s =~ s/};$/}/m;
 	print $s;
     } elsif ($MonitorsDB) {
-- 
cgit v1.2.1