From e7a9275adee8532d7185996e50a3b8d8d1ffcd81 Mon Sep 17 00:00:00 2001
From: Anssi Hannula <anssi@mandriva.org>
Date: Sun, 3 Jan 2010 10:17:05 +0000
Subject: perl_checker cleanups

---
 monitor-edid       | 2 +-
 monitor-parse-edid | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/monitor-edid b/monitor-edid
index a59226f..b77f02b 100755
--- a/monitor-edid
+++ b/monitor-edid
@@ -78,7 +78,7 @@ sub parse_edid() {
 
 sub get_edids {
     my ($b_get_first) = @_;
-    my %seen = ();
+    my %seen;
     my @l = map { 
 	my $s = slurp($_); 
 	(is_edid_possibly_valid($s) && !$seen{ $_[1] }++) ? [ $_ => $s ] : ();
diff --git a/monitor-parse-edid b/monitor-parse-edid
index 718b8c5..b95dd1f 100755
--- a/monitor-parse-edid
+++ b/monitor-parse-edid
@@ -467,8 +467,8 @@ sub parse_edid {
 	$edid{ratio_precision} = 'cm';
     }
     
-    if ($edid{feature_support}->{has_preferred_timing} && $edid{detailed_timings}[0]) {
-	$edid{detailed_timings}[0]->{preferred} = 1;
+    if ($edid{feature_support}{has_preferred_timing} && $edid{detailed_timings}[0]) {
+	$edid{detailed_timings}[0]{preferred} = 1;
     }
 
     foreach my $h (@{$edid{detailed_timings}}) {
-- 
cgit v1.2.1