From: John Goulah <jgoulah@cpan.org>
Date: Mon, 1 Dec 2008 21:19:50 +0000 (+0000)
Subject: needed to tighten up regex added in last commit
X-Git-Tag: v0.11008~273
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed53eb28a3221df420a24ca7b2db1dc72ac3c8d1;p=dbsrgits%2FSQL-Translator.git

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
--- 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 {