--- xSV-old.pm  2004-05-26 20:13:12.000000000 -0500
+++ xSV.pm      2004-05-26 20:32:48.000000000 -0500
@@ -172,17 +172,18 @@
   }

   my $sep = $self->{sep};
+  my $quote = $self->{always_quote};
   my @row;
   foreach my $value (@_) {
     if (not defined($value)) {
       # Empty fields are undef
-      push @row, "";
+      push @row, $quote ? qq("") : "";
     }
     elsif ("" eq $value) {
       # The empty string has to be quoted.
       push @row, qq("");
     }
-    elsif ($value =~ /\s|\Q$sep\E|"/) {
+    elsif ($value =~ /\s|\Q$sep\E|"/ or $quote) {
       # quote it
       local $_ = $value;
       s/"/""/g;
@@ -321,7 +322,7 @@

 my @normal_accessors = qw(
   close_fh error_handler warning_handler filename filter fh
-  row_size row_size_warning
+  row_size row_size_warning always_quote
 );
 foreach my $accessor (@normal_accessors) {
   no strict 'refs';