| Subject: | test fails if running in dir w/"fred" in path |
Trying to install w/cpanm in perlbrew-ed OS X home dir: /User/fred
DBI-1.616/t/51dbm_file.t fails:
Use of uninitialized value $1 in concatenation (.) or string at ./t/51dbm_file.t line 72.
Use of uninitialized value $1 in concatenation (.) or string at ./t/51dbm_file.t line 81.
Use of uninitialized value $1 in concatenation (.) or string at ./t/51dbm_file.t line 81.
Use of uninitialized value $1 in concatenation (.) or string at ./t/51dbm_file.t line 81.
DBD::DBM::db selectall_arrayref failed: -d
/Users/freddy/.cpanm/work/1305577426.94245/DBI-1.616/test_output_95281: No such
file or directory at /Users/fred/.cpanm/work/1305577426.94245/DBI-
1.616/blib/lib/DBD/File.pm line 730 at /Users/fred/.cpanm/work/1305577426.94245/DBI-
1.616/blib/lib/DBI/DBD/SqlEngine.pm line 795
[for Statement "select * from Krueger"] at ./t/51dbm_file.t line 86
Can't use an undefined value as an ARRAY reference at ./t/51dbm_file.t line 87.
Compilation failed in require at t/zvxnp_51dbm_file.t line 6.
This is what's involved:
at line 71:
my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn};
$fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/;
and 81:
$tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/;
not sure best way to qualify the substitution to restrict only to db filename; maybe add an
end-of-line match?
$tgt_fn =~ s/fred(\.[^.]*)?$/freddy$1/;