| Subject: | Data::ObjectDriver::SQL::Oracle uninitialized value in concatenation issue |
I think it is tiny bug.
The warning occurs Data::ObjectDriver::SQL::Oracle::as_sql.
my $oracle = Data::ObjectDriver::SQL::Oracle->new;
$oracle->add_where(foo => "bar");
$oracle->as_sql; # Use of uninitialized value in concatenation (.) or
string at
/home/kaz/dev/work/plusstar/extlib/lib/perl5/Data/ObjectDriver/SQL.pm
line 101.
Attached patch.
| Subject: | dod_sql_oracle.patch |
--- Oracle.pm.orig 2009-08-27 18:02:40.000000000 +0900
+++ Oracle.pm 2009-08-27 18:02:56.000000000 +0900
@@ -8,7 +8,7 @@
## Oracle doesn't have the LIMIT clause.
sub as_limit {
- return;
+ return '';
}
## Override as_sql to emulate the LIMIT clause.