Change to avoid warning of "use of unitialized value."

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Utils.pm

diff --git a/lib/SQL/Translator/Utils.pm b/lib/SQL/Translator/Utils.pm
index 88fe399..8e31185 100644 (file)
--- a/lib/SQL/Translator/Utils.pm
+++ b/lib/SQL/Translator/Utils.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Utils;
 
 # ----------------------------------------------------------------------
-# $Id: Utils.pm,v 1.4 2003-05-09 16:54:03 kycl4rk Exp $
+# $Id: Utils.pm,v 1.5 2003-05-12 14:49:39 kycl4rk Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2003 darren chamberlain <darren@cpan.org>
 #
@@ -119,7 +119,7 @@ HEADER_COMMENT
 sub parse_list_arg {
     return UNIVERSAL::isa( $_[0], 'ARRAY' ) 
         ? shift 
-        : [ map { s/^\s+|\s+$//g; $_ } map { split /,/ } @_ ]
+        : [ map { s/^\s+|\s+$//g; $_ } map { $_ ? split /,/ : '' } @_ ]
     ;
 }