have the acpi EDID file in the perl output

1 files changed, 8 insertions, 3 deletions

diff --git a/monitor-edid b/monitor-edid
index 5bc0bea..4dd6311 100755
--- a/monitor-edid
+++ b/monitor-edid
@@ -25,9 +25,14 @@ if ($0 =~ /monitor-get-edid/) {
 	foreach (@edids) {
 	    my ($f, $edid) = @$_;
 	    warn "parsing EDID from $f\n" if $opt{verbose};
-	    open(my $F, '|' . parse_edid());
-	    print $F $edid;
-	    close $F and $err = 0;
+	    if ($f =~ m!^/!) {
+		system(parse_edid() . " $f");
+		$err = 0 if $? == 0;
+	    } else {
+		open(my $F, '|' . parse_edid());
+		print $F $edid;
+		close $F and $err = 0;
+	    }
 	    print ",\n" if $opt{perl};
 	}
 	print ")\n" if $opt{perl};