aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Rousse <guillomovitch@mageia.org>2012-05-22 21:56:23 +0000
committerGuillaume Rousse <guillomovitch@mageia.org>2012-05-22 21:56:23 +0000
commitdd1ccf218f5d2d5d9cbf426babbb50af2f6fb779 (patch)
treeb261006fef950a8d8c2efe8cdc0592e3029a9ed0
parent74fbc7c3d23a4340dcbd667505d9c659032a6e82 (diff)
downloadperl-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-xlib/Parse/EDID.pm1
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" : '',