add param to _apply_default_value so that certain values can output without quotes

diff --git a/Changes b/Changes
index 07d93c8..87362a1 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 # ----------------------------------------------------------
 # 
 # ----------------------------------------------------------
+* Add param to _apply_default_value so that certain values can output without quotes (jgoulah)
 * Add ignore_opts parser arg (to ignore table options) in Parser::MySQL (jgoulah)
 * Skip tests for buggy Spreadsheet::ParseExcel versions (rbo)
 * Add support for skip tables parser arg in Parser::DBI::MySQL (jgoulah)

diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm
index 3366dc1..3fccfc9 100644 (file)
--- a/lib/SQL/Translator/Producer.pm
+++ b/lib/SQL/Translator/Producer.pm
@@ -34,7 +34,9 @@ sub produce { "" }
 ## They are special per Producer, and provide support for the old 'now()'
 ## default value exceptions
 sub _apply_default_value {
-  my (undef, $field_ref, $default, $exceptions) = @_;
+  my (undef, $field_ref, $default, $exceptions, $noquote) = @_;
+
+  my @noquote = (defined $noquote)?@$noquote:();
 
   if ($exceptions and ! ref $default) {
     for (my $i = 0; $i < @$exceptions; $i += 2) {
@@ -49,10 +51,11 @@ sub _apply_default_value {
     }
   }
 
+  my $qc = (grep m/$default/, @noquote)?"":"'"; 
   if (ref $default) {
       $$field_ref .= " DEFAULT $$default";
   } else {
-      $$field_ref .= " DEFAULT '$default'";
+      $$field_ref .= " DEFAULT $qc$default$qc";
   }
 
 }

diff --git a/lib/SQL/Translator/Producer/MySQL.pm b/lib/SQL/Translator/Producer/MySQL.pm
index 3ce2c38..8d6b6e6 100644 (file)
--- a/lib/SQL/Translator/Producer/MySQL.pm
+++ b/lib/SQL/Translator/Producer/MySQL.pm
@@ -566,6 +566,9 @@ sub create_field
           [
             'NULL'       => \'NULL',
           ],
+          [
+          'CURRENT_TIMESTAMP'
+          ],
         );
     }