Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (nike.apache.org: local policy)
Date: Thu, 7 May 2009 13:27:49 -0400
From: Ryan Gies <ryan@livesite.net>
To: modperl@perl.apache.org
Subject: Apache2::URI::unescape_url
Message-ID: <20090507132749.0b67a5c4@devbox.lsnllc>
Organization: Livesite Netwoks, LLC
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit

I'm rather surprised at what I'm seeing, but it appears this method
(Apache2::URI::unescape_url) is not correctly updating the length scalar
variable.  Any thoughts? -Ryan

Output from the below response handler snippet:

  Before: 'http%3A%2F%2Fexample.com'
  After : 'http://example.com^@e.com'

Alternate output (when url encoding the result):

  Before: 'http%3A%2F%2Fexample.com'
  After : 'http://example.com%00e.com/

--8<--------------------------------------------

package Apache2::Test::T1;
use strict;
use Apache2::URI;

sub handler {
  my $r = shift;
  $r->content_type('text/plain');
  my $url = 'http%3A%2F%2Fexample.com';
  $r->print(sprintf("Before: '%s'\n", $url));
  Apache2::URI::unescape_url($url);
  $r->print(sprintf("After : '%s'\n", $url));
  Apache2::Const::OK;
}

1;

-------------------------------------------->8--