diff -Nru libmojolicious-perl-9.21+dfsg/Changes libmojolicious-perl-9.22+dfsg/Changes --- libmojolicious-perl-9.21+dfsg/Changes 2021-08-13 15:00:38.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/Changes 2021-10-16 11:05:25.000000000 +0000 @@ -1,7 +1,11 @@ +9.22 2021-10-16 + - Added a referer method to Mojo::Headers, as an alias for the referrer method. + - Fixed response status log message to use the "trace" log level instead of "debug". + 9.21 2021-08-13 - - Added EXPERIMENTAL supprt for top-level await to Mojo::Promise. - - Updated Future::AsyncAwait requirement to 0.52 for new fatures and bug fixes. + - Added EXPERIMENTAL support for top-level await to Mojo::Promise. + - Updated Future::AsyncAwait requirement to 0.52 for new features and bug fixes. - Improved *_attr and *_text methods in Test::Mojo to return undef instead of empty string for values that do not exist. (tim-2) - Fixed Mojo::DOM not to auto-close tags in and blocks. (mkende) diff -Nru libmojolicious-perl-9.21+dfsg/debian/changelog libmojolicious-perl-9.22+dfsg/debian/changelog --- libmojolicious-perl-9.21+dfsg/debian/changelog 2021-09-30 11:35:30.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/debian/changelog 2021-10-29 23:21:18.000000000 +0000 @@ -1,3 +1,10 @@ +libmojolicious-perl (9.22+dfsg-1) unstable; urgency=medium + + * Import upstream version 9.22+dfsg. + * Update years of packaging copyright. + + -- gregor herrmann Sat, 30 Oct 2021 01:21:18 +0200 + libmojolicious-perl (9.21+dfsg-2) unstable; urgency=medium * Add Breaks on older libmojolicious-plugin-openapi-perl. diff -Nru libmojolicious-perl-9.21+dfsg/debian/copyright libmojolicious-perl-9.22+dfsg/debian/copyright --- libmojolicious-perl-9.21+dfsg/debian/copyright 2021-09-30 11:35:30.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/debian/copyright 2021-10-29 23:21:18.000000000 +0000 @@ -19,7 +19,7 @@ Files: debian/* Copyright: 2010-2011, Jonathan Yu - 2010-2020, gregor herrmann + 2010-2021, gregor herrmann 2011, Angel Abad 2011, Fabrizio Regalli 2011-2012, Krzysztof Krzyżaniak (eloy) diff -Nru libmojolicious-perl-9.21+dfsg/lib/Mojo/Headers.pm libmojolicious-perl-9.22+dfsg/lib/Mojo/Headers.pm --- libmojolicious-perl-9.21+dfsg/lib/Mojo/Headers.pm 2021-06-30 13:58:00.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/lib/Mojo/Headers.pm 2021-10-18 22:12:26.000000000 +0000 @@ -123,7 +123,7 @@ } # New header - if ($line =~ /^(\S[^:]*)\s*:\s*(.*)$/) { push @$headers, [$1, $2] } + if ($line =~ /^(\S[^:]*):\s*(.*)$/) { push @$headers, [$1, $2] } # Multi-line elsif ($line =~ s/^\s+// && @$headers) { $headers->[-1][1] .= " $line" } @@ -142,6 +142,7 @@ return $self; } +sub referer { shift->referrer(@_) } sub referrer { shift->header(Referer => @_) } sub remove { @@ -556,6 +557,13 @@ Get or replace current header value, shortcut for the C header. +=head2 referer + + my $referrer = $headers->referer; + $headers = $headers->referer('http://example.com'); + +Alias for L. + =head2 referrer my $referrer = $headers->referrer; diff -Nru libmojolicious-perl-9.21+dfsg/lib/Mojolicious/Controller.pm libmojolicious-perl-9.22+dfsg/lib/Mojolicious/Controller.pm --- libmojolicious-perl-9.21+dfsg/lib/Mojolicious/Controller.pm 2021-08-09 16:33:11.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/lib/Mojolicious/Controller.pm 2021-10-16 11:03:22.000000000 +0000 @@ -174,7 +174,7 @@ # Disable auto rendering and stop timer my $app = $self->render_later->app; - $self->helpers->log->debug(sub { + $self->helpers->log->trace(sub { my $timing = $self->helpers->timing; my $elapsed = $timing->elapsed('mojo.timer') // 0; my $rps = $timing->rps($elapsed) // '??'; diff -Nru libmojolicious-perl-9.21+dfsg/lib/Mojolicious/Guides/Cookbook.pod libmojolicious-perl-9.22+dfsg/lib/Mojolicious/Guides/Cookbook.pod --- libmojolicious-perl-9.21+dfsg/lib/Mojolicious/Guides/Cookbook.pod 2021-06-30 13:58:00.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/lib/Mojolicious/Guides/Cookbook.pod 2021-08-30 10:06:26.000000000 +0000 @@ -839,7 +839,7 @@ }); # Stop recurring timer - $c->on(finish => sub ($ioloop) { $ioloop->remove($id) }); + $c->on(finish => sub ($c) { Mojo::IOLoop->remove($id) }); }; app->start; @@ -1062,7 +1062,7 @@ use Scalar::Util qw(weaken); # Intercept multipart uploads and log each chunk received - hook after_build_tx => sub ($tx) { + hook after_build_tx => sub ($tx, $app) { # Subscribe to "upgrade" event to identify multipart uploads weaken $tx; @@ -1080,7 +1080,7 @@ $single->unsubscribe('read')->on(read => sub ($single, $bytes) { # Log size of every chunk we receive - app->log->debug(length($bytes) . ' bytes uploaded'); + $app->log->debug(length($bytes) . ' bytes uploaded'); }); }); }); diff -Nru libmojolicious-perl-9.21+dfsg/lib/Mojolicious.pm libmojolicious-perl-9.22+dfsg/lib/Mojolicious.pm --- libmojolicious-perl-9.21+dfsg/lib/Mojolicious.pm 2021-08-09 17:26:06.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/lib/Mojolicious.pm 2021-10-09 09:30:34.000000000 +0000 @@ -56,7 +56,7 @@ has validator => sub { Mojolicious::Validator->new }; our $CODENAME = 'Waffle'; -our $VERSION = '9.21'; +our $VERSION = '9.22'; sub BUILD_DYNAMIC { my ($class, $method, $dyn_methods) = @_; @@ -883,6 +883,8 @@ Andy Grundman +Andy Lester + Aristotle Pagaltzis Ashley Dev diff -Nru libmojolicious-perl-9.21+dfsg/META.json libmojolicious-perl-9.22+dfsg/META.json --- libmojolicious-perl-9.21+dfsg/META.json 2021-08-13 19:14:04.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/META.json 2021-10-21 11:52:15.000000000 +0000 @@ -63,6 +63,6 @@ "web" : "https://web.libera.chat/#mojo" } }, - "version" : "9.21", + "version" : "9.22", "x_serialization_backend" : "JSON::PP version 4.06" } diff -Nru libmojolicious-perl-9.21+dfsg/META.yml libmojolicious-perl-9.22+dfsg/META.yml --- libmojolicious-perl-9.21+dfsg/META.yml 2021-08-13 19:14:04.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/META.yml 2021-10-21 11:52:15.000000000 +0000 @@ -34,5 +34,5 @@ homepage: https://mojolicious.org license: http://www.opensource.org/licenses/artistic-license-2.0 repository: https://github.com/mojolicious/mojo.git -version: '9.21' +version: '9.22' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -Nru libmojolicious-perl-9.21+dfsg/t/mojo/headers.t libmojolicious-perl-9.22+dfsg/t/mojo/headers.t --- libmojolicious-perl-9.21+dfsg/t/mojo/headers.t 2021-06-30 13:58:00.000000000 +0000 +++ libmojolicious-perl-9.22+dfsg/t/mojo/headers.t 2021-08-30 10:06:26.000000000 +0000 @@ -96,6 +96,11 @@ is $headers->user_agent('foo')->user_agent, 'foo', 'right value'; is $headers->vary('foo')->vary, 'foo', 'right value'; is $headers->www_authenticate('foo')->www_authenticate, 'foo', 'right value'; + + is $headers->referrer('foo')->referrer, 'foo', 'right value'; + is $headers->referer, 'foo', 'right value'; + is $headers->referer('bar')->referer, 'bar', 'right value'; + is $headers->referrer, 'bar', 'right value'; }; subtest 'Clone' => sub {