freebsd-ports/databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Utils.pm

--- lib/SQL/Translator/Utils.pm.orig	Mon Feb  9 23:04:26 2004
+++ lib/SQL/Translator/Utils.pm	Sun May  9 19:11:27 2004
@@ -123,7 +123,7 @@
 # arguments.  Modified to also handle a list of references.
 # ----------------------------------------------------------------------
 sub parse_list_arg {
-    my $list = UNIVERSAL::isa( $_[0], 'ARRAY' ) ? shift : [ @_ ];
+    my $list = UNIVERSAL::isa( $_[0]||'', 'ARRAY' ) ? shift : [ @_ ];
 
     #
     # This protects stringification of references.