diff options
author | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-22 21:56:23 +0000 |
---|---|---|
committer | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-22 21:56:23 +0000 |
commit | dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779 (patch) | |
tree | b261006fef950a8d8c2efe8cdc0592e3029a9ed0 | |
parent | 74fbc7c3d23a4340dcbd667505d9c659032a6e82 (diff) | |
download | perl-Parse-EDID-dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779.tar perl-Parse-EDID-dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779.tar.gz perl-Parse-EDID-dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779.tar.bz2 perl-Parse-EDID-dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779.tar.xz perl-Parse-EDID-dd1ccf218f5d2d5d9cbf426babbb50af2f6fb779.zip |
leverage warnings locally for now
-rwxr-xr-x | lib/Parse/EDID.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Parse/EDID.pm b/lib/Parse/EDID.pm index d970ce5..6b416b1 100755 --- a/lib/Parse/EDID.pm +++ b/lib/Parse/EDID.pm @@ -546,6 +546,7 @@ sub parse_edid { my $horizontal_total = $h->{horizontal_active} + $h->{horizontal_blanking}; my $vertical_total = $h->{vertical_active} + $h->{vertical_blanking}; + no warnings 'uninitialized'; $h->{ModeLine_comment} = sprintf qq(# Monitor %s%s modeline (%.1f Hz vsync, %.1f kHz hsync, %sratio %s%s)), $h->{preferred} ? "preferred" : "supported", $h->{source} eq 'cea_vdb' ? " CEA" : '', |