From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 12 May 2003 14:49:39 +0000 (+0000)
Subject: Change to avoid warning of "use of unitialized value."
X-Git-Tag: v0.02~113
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94101b23481eac1c9bcd7bc205da0f327616bbb5;p=dbsrgits%2FSQL-Translator.git

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

diff --git a/lib/SQL/Translator/Utils.pm b/lib/SQL/Translator/Utils.pm
index 88fe399..8e31185 100644
--- 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 /,/ : '' } @_ ]
     ;
 }