diff options
author | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-24 16:42:52 +0000 |
---|---|---|
committer | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-24 16:42:52 +0000 |
commit | 10e6638085690c403705e71a4f13f74eda0ae97e (patch) | |
tree | 7ad8723ae2e29ddc8bee3dac3e07ed1602526cdb /lib | |
parent | fa98088107a242884dfe4bcd2ab0cc3582ae3e21 (diff) | |
download | perl-Parse-EDID-10e6638085690c403705e71a4f13f74eda0ae97e.tar perl-Parse-EDID-10e6638085690c403705e71a4f13f74eda0ae97e.tar.gz perl-Parse-EDID-10e6638085690c403705e71a4f13f74eda0ae97e.tar.bz2 perl-Parse-EDID-10e6638085690c403705e71a4f13f74eda0ae97e.tar.xz perl-Parse-EDID-10e6638085690c403705e71a4f13f74eda0ae97e.zip |
fix xrandr output parsing
Diffstat (limited to 'lib')
-rwxr-xr-x | lib/Parse/EDID.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Parse/EDID.pm b/lib/Parse/EDID.pm index 055b633..16ea32e 100755 --- a/lib/Parse/EDID.pm +++ b/lib/Parse/EDID.pm @@ -623,7 +623,7 @@ sub find_edid_in_string { my ($input) = @_; my @edids; - while ($input =~ /(?:EDID_DATA|: EDID \(in hex\)):\n((.*\n){8})/g) { + while ($input =~ /(?:EDID_DATA|: EDID \(in hex\)|EDID):\n((.*\n){8})/g) { push @edids, edid_from_lines(split '\n', $1); } if (!@edids) { |