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;