--- nfo/perl/libs/DBD/AutoCSV.pm	2002/11/17 07:13:43	1.1
+++ nfo/perl/libs/DBD/AutoCSV.pm	2002/11/29 04:50:21	1.2
@@ -52,13 +52,14 @@
 package DBD::CSV::Statement;
 
 sub _get_rules_autoscan {
+  #print "_get_rules_autoscan", "\n";
   return [
     { eol => "\r\n", sep_char => ",", quote_char => "\"", escape_char => "" },
     { eol => "\r\n", sep_char => ";", quote_char => "\"", escape_char => "" },
-    { eol => "\n", sep_char => ";", quote_char => "\"", escape_char => "", always_quote => 1 },
     { eol => "\n", sep_char => ":", quote_char => "", escape_char => "" },    # /etc/passwd
     { eol => "\n", sep_char => ",", quote_char => "\"", escape_char => "" },
     { eol => "\n", sep_char => "|", quote_char => "\"", escape_char => "" },
+    { eol => "\n", sep_char => ";", quote_char => "\"", escape_char => "\\", always_quote => 1 },
   ];
 }