Package: libwww-perl
Version: 5.805-1
Severity: normal
$ cat buggy.pl
use strict;
use warnings;
use HTTP::Response;
use HTML::Form;
my $turtle = "\xbf\xf3\xb3\x77";
my $response = new HTTP::Response(200);
$response->header('Content-Type' => 'text/html; charset=ISO-8859-2');
$response->header('Content-Base' => 'http://foobar/');
$response->content("<form><input type='text' name='i' value='$turtle'></form>");
my ($form) = HTML::Form->parse($response);
print $form->click->as_string;
$form->value('i', $turtle);
print $form->click->as_string;
$ perl buggy.pl
GET http://foobar/?i=%F3w
GET http://foobar/?i=%BF%F3%B3w
-- System Information:
Debian Release: lenny/sid
APT prefers testing
APT policy: (900, 'testing'), (600, 'unstable'), (500, 'experimental')
Architecture: i386 (i686)
Kernel: Linux 2.6.21-2-686 (SMP w/1 CPU core)
Locale: LANG=C, LC_CTYPE=pl_PL (charmap=ISO-8859-2)
Shell: /bin/sh linked to /bin/dash
Versions of packages libwww-perl depends on:
pn libdigest-md5-perl <none> (no description available)
ii libhtml-parser-perl 3.56-1 A collection of modules that parse
ii libhtml-tree-perl 3.23-1 represent and create HTML syntax t
ii liburi-perl 1.35.dfsg.1-1 Manipulates and accesses URI strin
ii perl [libmime-base64-perl] 5.8.8-7 Larry Wall's Practical Extraction
ii perl-modules [libnet-perl] 5.8.8-7 Core Perl modules
Versions of packages libwww-perl recommends:
ii libcompress-zlib-perl 2.007-1 Perl module for creation and manip
pn libhtml-format-perl <none> (no description available)
pn libmailtools-perl <none> (no description available)
-- no debconf information
--
Jakub Wilk
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
