From e7a9275adee8532d7185996e50a3b8d8d1ffcd81 Mon Sep 17 00:00:00 2001 From: Anssi Hannula Date: Sun, 3 Jan 2010 10:17:05 +0000 Subject: perl_checker cleanups --- monitor-edid | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'monitor-edid') 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 ] : (); -- cgit v1.2.1