X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FSQL%2FMySQL.pm;h=01e9c40d8752f34e382cb0f31b3c9960c0980136;hb=f77b076abfde2eaea012e7aa72ef70788eda94cb;hp=c1691e35ec47967cfeb7cb7c5c220930556a4621;hpb=dff43bbb48132f86adc48f0833b3656b4a0f4137;p=dbsrgits%2FSQL-Translator-2.0-ish.git

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;