replaced return; with return undef;

This commit is contained in:
JT Smith 2008-01-24 21:58:15 +00:00
parent ffa90c5fbd
commit fa09c41598
113 changed files with 287 additions and 286 deletions

View file

@ -106,7 +106,7 @@ sub splitCSV {
# shift, add to previous, and try again
if ($array[$i] =~ /^"/s && length(($array[$i] =~ m/("*)$/s)[0]) % 2 == 0 ) {
# If there are no more elements, this line is erroneous
if ($i+1 > @array) { warn "Error parsing CSV line."; return; }
if ($i+1 > @array) { warn "Error parsing CSV line."; return undef; }
$array[$i] .= ",".splice(@array,$i+1,1);
redo;
}