Mercurial > hg > nginx-tests
changeset 161:2c07dc5bc354
Tests: avoid using encode_base64url().
It only recently appeared in MIME::Base64 3.11 and only shipped
with Perl 5.13.8+.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Fri, 29 Jul 2011 02:28:45 +0400 |
parents | 197d5d9fd7f9 |
children | 465a711ffa19 |
files | secure_link.t |
diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/secure_link.t Thu Jul 28 17:12:56 2011 +0400 +++ b/secure_link.t Fri Jul 29 02:28:45 2011 +0400 @@ -12,7 +12,7 @@ use Test::More; use Digest::MD5 qw/ md5 md5_hex /; -use MIME::Base64 qw/ encode_base64url /; +use MIME::Base64 qw/ encode_base64 /; BEGIN { use FindBin; chdir($FindBin::Bin); } @@ -136,3 +136,12 @@ like(http_get('/p/test.html'), qr/^HTTP.*403/, 'request old style no hash'); ############################################################################### + +sub encode_base64url { + my $e = encode_base64(shift, ""); + $e =~ s/=+\z//; + $e =~ tr[+/][-_]; + return $e; +} + +###############################################################################