Fix broken db creation

[cgi-auth-flexible.git] / cgi-auth-flexible.pm

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 284a23dcee5a9bd1c179dac330d9461bfd0dd38b..6d1c0e8577fb79dab7fb2ed2e99d735e48d2aa66 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')) {
+       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".
@@ -477,11 +478,11 @@ sub new_verifier {
            },
            srcdump_process_item => \&srcdump_process_item,
            srcdump_vcs_dirs => [qw(.git .hg .bzr .svn)],
-           srcdump_vcsscript => [git => "
+           srcdump_vcsscript => {git => "
                  git ls-files -z
                  git ls-files -z --others --exclude-from=.gitignore
                  find .git -print0
-                            "],
+                            "},
            srcdump_byvcs => \&srcdump_byvcs,
            srcdump_novcs => \&srcdump_novcs,
            srcdump_excludes => [qw(*~ *.bak *.tmp), '#*#'],
@@ -500,14 +501,14 @@ sub new_verifier {
        $verifier->{S}{$k} = $v;
     }
     $verifier->{S}{db_setup_stmts} //=
-       ["CREATE TABLE $v->{S}{db_prefix}_assocs (".
+       ["CREATE TABLE $verifier->{S}{db_prefix}_assocs (".
         " assochash VARCHAR PRIMARY KEY,".
         " username VARCHAR NOT NULL,".
         " last INTEGER NOT NULL".
         ")"
         ,
-        "CREATE INDEX $v->{S}{db_prefix}_assocs_timeout_index".
-        " ON $v->{S}{db_prefix}_assocs".
+        "CREATE INDEX $verifier->{S}{db_prefix}_assocs_timeout_index".
+        " ON $verifier->{S}{db_prefix}_assocs".
         " (last)"
        ];
     bless $verifier, $class;