have the acpi EDID file in the perl output

1 files changed, 3 insertions, 2 deletions

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;