From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 27 Jan 2010 07:19:56 +0000 (-0800)
Subject: use Digest::SHA1 for sha1_hex
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f77b076abfde2eaea012e7aa72ef70788eda94cb;p=dbsrgits%2FSQL-Translator-2.0-ish.git

use Digest::SHA1 for sha1_hex
---

diff --git a/lib/SQL/Translator/Producer/SQL/MySQL.pm b/lib/SQL/Translator/Producer/SQL/MySQL.pm
index c1691e3..01e9c40 100644
--- a/lib/SQL/Translator/Producer/SQL/MySQL.pm
+++ b/lib/SQL/Translator/Producer/SQL/MySQL.pm
@@ -805,6 +805,7 @@ HEADER_COMMENT
     use constant COLLISION_TAG_LENGTH => 8;
 
     method truncate_id_uniquely(Str $desired_name, Int $max_symbol_length) {
+        use Digest::SHA1 qw(sha1_hex);
         return $desired_name
           unless defined $desired_name && length $desired_name > $max_symbol_length;