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

1. cat /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm

668 foreach my $mbx (@res) {
669 $l = $mbx->[0];
670 if ($mbx->[1] ne '')

673 if (defined ($mbx->[3]))

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: