fix: use Mojo::Path for url escaping
This commit is contained in:
@@ -4,6 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Exporter 'import';
|
use Exporter 'import';
|
||||||
use Mojo::URL;
|
use Mojo::URL;
|
||||||
|
use Mojo::Path;
|
||||||
use Mojo::Util qw(url_unescape decode);
|
use Mojo::Util qw(url_unescape decode);
|
||||||
|
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
@@ -78,7 +79,7 @@ sub sanitize_url {
|
|||||||
if ( $url =~ /%[0-9a-f]{2}/i ) {
|
if ( $url =~ /%[0-9a-f]{2}/i ) {
|
||||||
my $path = url_unescape( $parsed->path->to_string );
|
my $path = url_unescape( $parsed->path->to_string );
|
||||||
$path = decode( 'UTF-8', $path ) if length $path;
|
$path = decode( 'UTF-8', $path ) if length $path;
|
||||||
$parsed->path($path);
|
$parsed->path( Mojo::Path->new($path) );
|
||||||
|
|
||||||
my $query = $parsed->query->to_string;
|
my $query = $parsed->query->to_string;
|
||||||
if ( length $query ) {
|
if ( length $query ) {
|
||||||
|
|||||||
Reference in New Issue
Block a user