| Subject: | URI::Find corrupts input |
| Date: | Tue, 30 Jul 2013 23:48:28 +0530 |
| To: | bug-URI-Find [...] rt.cpan.org |
| From: | Kurian Jose Aerthail <cpan [...] kurianja.fastmail.fm> |
URI::Find appears to corrupt the input in the below test case:
-----------------
use Test::More qw(no_plan);
use URI::Find;
my $txt = << 'EOF' ;
Begin<
Test :-)
Show quoted text
>End
EOF
my $expected = $txt;
my $finder = URI::Find->new(sub { die; });
$finder->find(\$txt);
is($txt, $expected);
------------------------
Thanks!
Kurian