Fix test failures in t/lib/SQLParser.t from an lc() on a variable without a default on lib/Schema.pm

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-03-30 15:47:37 -03:00
parent 26944c11cc
commit 8a4bc61a6b

View File

@@ -152,9 +152,9 @@ sub find_column {
($col, $tbl, $db) = @args{qw(col tbl db)}; ($col, $tbl, $db) = @args{qw(col tbl db)};
} }
$db = lc $db; $db = lc($db || '');
$tbl = lc $tbl; $tbl = lc($tbl || '');
$col = lc $col; $col = lc($col || '');
if ( !$col ) { if ( !$col ) {
PTDEBUG && _d('No column specified or parsed'); PTDEBUG && _d('No column specified or parsed');
@@ -214,8 +214,8 @@ sub find_table {
($tbl, $db) = @args{qw(tbl db)}; ($tbl, $db) = @args{qw(tbl db)};
} }
$db = lc $db; $db = lc($db || '');
$tbl = lc $tbl; $tbl = lc($tbl || '');
if ( !$tbl ) { if ( !$tbl ) {
PTDEBUG && _d('No table specified or parsed'); PTDEBUG && _d('No table specified or parsed');