From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 6 Jan 2010 01:21:41 +0000 (+0000)
Subject: remove alignment mark on base64 md5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f098ade608549b6172809866d3f73042add7c9e8;p=dbsrgits%2FDBIx-Class-Historic.git

remove alignment mark on base64 md5
---

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index c578cc9..fe81851 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -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);