From f5fb4dd3b05d9e907596937e7b05c45f964e8544 Mon Sep 17 00:00:00 2001 From: "Eric A. Miller" Date: Fri, 18 Oct 2013 19:19:46 -0400 Subject: [PATCH] Silence warning from uninitialized variable in L3::Passport e_descr() --- ChangeLog | 1 + Info/Layer3/Passport.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 77453954..a306dc14 100644 --- a/ChangeLog +++ b/ChangeLog @@ -34,6 +34,7 @@ version 3.08 () ifDesc (Nic Bernstein) * Don't try to munge undef values * [#49] Perl 5.18 UNIVERSAL::can change could cause infinite loop + * Silence warning from uninitialized variable in L3::Passport e_descr() version 3.07 (2013-10-01) diff --git a/Info/Layer3/Passport.pm b/Info/Layer3/Passport.pm index 7d3ccc82..25d6972f 100644 --- a/Info/Layer3/Passport.pm +++ b/Info/Layer3/Passport.pm @@ -683,7 +683,7 @@ sub e_descr { my $model = $passport->model(); my $rc_ps = $passport->rc_ps_detail() || {}; - my $rc_ch = $passport->chassis(); + my $rc_ch = $passport->chassis() || ''; $rc_ch =~ s/a//; my %rc_e_descr;