Issue

Description of problem: On installing cryus-imapd and after runnimg lm (list mailboxes) in cyradm the following warning occurs: ::1> lm Use of uninitialized value $w in numeric gt (>) at /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm line 676. The mail boxes are listed and works as expected. The perl script reporting issue is provided through perl-cyrus $ rpm -qf /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm perl-Cyrus-3.4.1-6.el9.x86_64 The code snippet from Shell.pm cat /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm 668 foreach my $mbx (@res) { 669 $l = $mbx->[0]; 670 if ($mbx->[1] ne '') { 671 $l .= ' (' . $mbx->[1] . ')'; 672 } 673 if (defined ($mbx->[3])) { 674 $l .= ' (' . $mbx->[3] . ')'; 675 } 676 if (length($l) + 1 > $w) { <<< $w is being called or used without being initialised 677 $w = length($l) + 1; Version-Release number of selected component (if applicable): perl-Cyrus-3.4.1-6.el9.x86_64 How reproducible: Use cryadm command and list mailboxes on the server. Steps to Reproduce: 1. Install cyrus-imapd, as dependencey perl-Cyrus is installed. 2. Connect using cyradm command. 3. List mailboxes Actual results: Getting warning in lm command. Use of uninitialized value $w in numeric gt (>) at /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm line 676. Which confuses non-perl programmers. Expected results: There should not be such warning to avoid any confusion. Additional info:

Release Notes

No. of Comments

Resolution

Done-Errata