From 31867c51b2593f56e014745ef3fcd5b0c7cb6afe Mon Sep 17 00:00:00 2001 From: Cong Wang Date: Wed, 12 Jun 2019 22:26:20 -0700 Subject: [PATCH] Fix Perl warnings in ras-mc-ctl Signed-off-by: Cong Wang --- util/ras-mc-ctl.in | 2 ++ 1 file changed, 2 insertions(+) diff --git a/util/ras-mc-ctl.in b/util/ras-mc-ctl.in index 7342683..3adc2f9 100755 --- a/util/ras-mc-ctl.in +++ b/util/ras-mc-ctl.in @@ -1122,6 +1122,7 @@ sub summary my ($query, $query_handle, $out); my ($err_type, $label, $mc, $top, $mid, $low, $count, $msg); my ($etype, $severity, $etype_string, $severity_string); + my $dev_name; my $dbh = DBI->connect("dbi:SQLite:dbname=$dbname", "", "", {}); @@ -1216,6 +1217,7 @@ sub errors my ($query, $query_handle, $id, $time, $count, $type, $msg, $label, $mc, $top, $mid, $low, $addr, $grain, $syndrome, $detail, $out); my ($mcgcap,$mcgstatus, $status, $misc, $ip, $tsc, $walltime, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $bank_name, $mcgstatus_msg, $mcistatus_msg, $user_action, $mc_location); my ($timestamp, $etype, $severity, $etype_string, $severity_string, $fru_id, $fru_text, $cper_data); + my ($bus_name, $dev_name, $driver_name, $reporter_name); my $dbh = DBI->connect("dbi:SQLite:dbname=$dbname", "", "", {}); -- 2.50.1