remove alignment mark on base64 md5
Rafael Kitover [Wed, 6 Jan 2010 01:21:41 +0000 (01:21 +0000)]
lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm

index c578cc9..fe81851 100644 (file)
@@ -303,6 +303,9 @@ sub relname_to_table_alias {
   $ctx->add($alias);
   my $md5 = $ctx->b64digest;
 
+  # remove alignment mark just in case
+  $md5 =~ s/=*\z//;
+
   # truncate and prepend to truncated relname without vowels
   (my $devoweled = $relname) =~ s/[aeiou]//g;
   my $shortened = substr($devoweled, 0, 18);