Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (athena.apache.org: domain of Mark.Hedges@ticketmaster.com
 designates 68.232.137.156 as permitted sender)
From: Mark Hedges <Mark.Hedges@Ticketmaster.com>
To: Vincent Veyron <vv.lists@wanadoo.fr>
CC: "modperl@perl.apache.org" <modperl@perl.apache.org>, Mark Hedges
	<Mark.Hedges@Ticketmaster.com>
Subject: RE: Apache2::URI::unescape_url bug?
Thread-Topic: Apache2::URI::unescape_url bug?
Thread-Index: Ac+RoLPC/7dqw6ZkSC2b3zG5ftyChgAOsjCAABPcpSAANAqdAAAxUm7Q
Date: Sun, 29 Jun 2014 17:36:43 +0000
Message-ID: 
 <55EEF0B3C5BF2744B2248754D717EE4C4CCC41@USASHEXMB02.LYV.LiveNation.com>
References: 
 <55EEF0B3C5BF2744B2248754D717EE4C4C2117@USASHEXMB02.LYV.LiveNation.com>
	<53ACE861.6040609@dbooth.org>
	<55EEF0B3C5BF2744B2248754D717EE4C4C56E1@USASHEXMB02.LYV.LiveNation.com>
 <20140628160218.455657ee6320bf9c097b3c8a@wanadoo.fr>
In-Reply-To: <20140628160218.455657ee6320bf9c097b3c8a@wanadoo.fr>
Accept-Language: en-US
Content-Language: en-US
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0

Another library providing the same function in working order is not a reaso=
n to not fix the function in Apache2::URI.

s/b Apache2::URI::unescape_url()... [...]

Mark


-----Original Message-----
From: Vincent Veyron [mailto:vv.lists@wanadoo.fr]=20
Sent: Saturday, June 28, 2014 7:02 AM
To: Mark Hedges
Cc: modperl@perl.apache.org
Subject: Re: Apache2::URI::unescape_url bug?

On Fri, 27 Jun 2014 17:12:35 +0000
Mark Hedges <Mark.Hedges@Ticketmaster.com> wrote:

> The intent was to report that Apache2::URI::unescape does not seem to wor=
k correctly.
>=20

This is what I get when I try your code :

Undefined subroutine &Apache2::URI::unescape called at /home/lib/Carnet/bla=
.pm line 35.\n

I don't see unescape in the list of functions in the doc :

http://perl.apache.org/docs/2.0/api/Apache2/URI.html

Is there a particular reason to use Apache2::URI in mod_perl?

use URI::Escape();

sub handler {
    my ($r) =3D @_;
    my $string =3D "6%2D41913%2FUK1";
    my $test =3D URI::Escape::uri_unescape($string);
    $r->log_error($test);
}

Result:

[Sat Jun 28 15:50:06 2014] [error] 6-41913/UK1

Note the $test variable I added; your code with URI::Escape :

sub handler {
    my ($r) =3D @_;
    my $string =3D "6%2D41913%2FUK1";
    URI::Escape::uri_unescape($string);
    $r->log_error($string);
}

Result:

[Sat Jun 28 15:54:44 2014] [error] 6%2D41913%2FUK1

--=20
					Salutations, Vincent Veyron

http://vincentveyron.com