X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FOracle%2FGeneric.pm;h=c578cc9bc26f98eda5d8620d2da7eb9734f3009d;hb=909668fe858a86f00b0a4042e04163bc2f480277;hp=5ed31a049e61137a07a3ec91519a56bac105f391;hpb=02d9b41a4842cf599a547299986b46ad83adfc1d;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index 5ed31a0..c578cc9 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -305,9 +305,12 @@ sub relname_to_table_alias {
 
   # truncate and prepend to truncated relname without vowels
   (my $devoweled = $relname) =~ s/[aeiou]//g;
-  my $res = substr($devoweled, 0, 18) . '_' . substr($md5, 0, 11);
+  my $shortened = substr($devoweled, 0, 18);
 
-  return $res;
+  my $new_alias =
+    $shortened . '_' . substr($md5, 0, 30 - length($shortened) - 1);
+
+  return $new_alias;
 }
 
 =head1 AUTHOR