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:
