Fix perl warning

webmin · Jan 8, 2023 · e66df37 · e66df37
1 parent 1860b12
commit e66df37
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/mailbox/index.cgi b/mailbox/index.cgi
@@ -26,7 +26,11 @@ elsif (!defined($in{'folder'}) && $userconfig{'default_folder'}) {
 	my $df = &find_named_folder($userconfig{'default_folder'}, \@folders);
 	$in{'folder'} = $df->{'index'} if ($df);
 	}
+
 # Get the folder by index
+if (!defined($in{'folder'})) {
+	$in{'folder'} = 0;
+	}
 my ($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
 
 # Show page header