From 54f02a371ddc8c651c41fb65180ec7e56048283f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Jan 2006 11:32:50 +0000
Subject: have the acpi EDID file in the perl output

---
 monitor-parse-edid | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'monitor-parse-edid')

diff --git a/monitor-parse-edid b/monitor-parse-edid
index 3d63b79..c542fe4 100755
--- a/monitor-parse-edid
+++ b/monitor-parse-edid
@@ -451,11 +451,11 @@ GetOptions(
     'MonitorsDB' => \ (my $MonitorsDB),
 ) or usage();
 
-my $F;
+my ($file, $F);
 if (@ARGV == 0) {
     $F = *STDIN;
 } elsif (@ARGV == 1) {
-    open($F, $ARGV[0]) or usage();
+    open($F, $file = $ARGV[0]) or usage();
 } else {
     usage();
 }
@@ -468,6 +468,7 @@ my $edid = parse_edid($raw_edid);
 if (my $err = check_parsed_edid($edid)) {
     die "$err\n";
 }
+$edid->{file} = $file if $file;
 
 if ($raw_perl) {
     use Data::Dumper;
-- 
cgit v1.2.1