srcdump: Skip undef entries in srcdump_dirscan_prepare (relevant if SCRIPT_FILENAME...

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 284a23dcee5a9bd1c179dac330d9461bfd0dd38b..6a3bb9d2285e874811e457962f3ef9a3350dc9cd 100644 (file)
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -353,6 +353,7 @@ sub srcdump_dirscan_prepare ($$) {
     };
     my %dirsdone;
     foreach my $item ($v->_ch('srcdump_listitems')) {
     };
     my %dirsdone;
     foreach my $item ($v->_ch('srcdump_listitems')) {

+       next unless defined $item;

        if ($item eq '.' && $v->{S}{srcdump_filter_cwd}) {
            my @bad = grep { !m#^/# } values %INC;
            die "filtering . from srcdump items and \@INC but already".
        if ($item eq '.' && $v->{S}{srcdump_filter_cwd}) {
            my @bad = grep { !m#^/# } values %INC;
            die "filtering . from srcdump items and \@INC but already".