sub Text::CSV::getline {
  my $self = shift;
  my $fh = shift;
  my $line = "";
  my $line_no;
  while (<$fh>) {
    $line_no ||= $.;
    $line .= $_;
    return if $self->parse($line);
  }
  if ($line) {
    die "CSV parse error at line $line_no";
  }
}