needed to tighten up regex added in last commit

diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm
index 3fccfc9..9f4d3d0 100644 (file)
--- a/lib/SQL/Translator/Producer.pm
+++ b/lib/SQL/Translator/Producer.pm
@@ -51,7 +51,7 @@ sub _apply_default_value {
     }
   }
 
-  my $qc = (grep m/$default/, @noquote)?"":"'"; 
+  my $qc = (grep m/^$default$/, @noquote)?"":"'"; 
   if (ref $default) {
       $$field_ref .= " DEFAULT $$default";
   } else {