X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLMaker%2FOracle.pm;h=b4c1584f74c1538156e3c0d33b583fa4adffe1e0;hb=05a5ca4b941f0741e91d0972334ab96b96e13f4d;hp=7f42855400486929dc23ab81427237cf938c96a1;hpb=c96bf2bceade3ac0654ec8ae4379fc72ff82bed8;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/SQLMaker/Oracle.pm b/lib/DBIx/Class/SQLMaker/Oracle.pm
index 7f42855..b4c1584 100644
--- a/lib/DBIx/Class/SQLMaker/Oracle.pm
+++ b/lib/DBIx/Class/SQLMaker/Oracle.pm
@@ -9,6 +9,7 @@ BEGIN {
   if (my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('id_shortener') ) {
     die "The following extra modules are required for Oracle-based Storages: $missing\n";
   }
+  require Digest::MD5;
 }
 
 use base 'DBIx::Class::SQLMaker';
@@ -145,9 +146,6 @@ sub _shorten_identifier {
   @keywords = $to_shorten unless @keywords;
 
   # get a base36 md5 of the identifier
-  require Digest::MD5;
-  require Math::BigInt;
-  require Math::Base36;
   my $b36sum = Math::Base36::encode_base36(
     Math::BigInt->from_hex (
       '0x' . Digest::MD5::md5_hex ($to_shorten)