$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 $res = substr($devoweled, 0, 18) . '_' . substr($md5, 0, 11);
+ my $shortened = substr($devoweled, 0, 18);
+
+ my $new_alias =
+ $shortened . '_' . substr($md5, 0, 30 - length($shortened) - 1);
- return $res;
+ return $new_alias;
}
=head1 AUTHOR