| Subject: | Finds erroneous URIs |
perl -MURI::Find::Delimited -wle '
my $finder=URI::Find::Delimited->new(
callback => sub { "[$_[2]]" } );
my $text = "http://www.foo.com/ blah blah style:font";
$finder->find(\$text);
print $text'
prints:
[http://www.foo.com/] blah blah [style:font]
However
perl -MURI::Find -wle '
my $finder=URI::Find->new( sub { "[$_[1]]" } );
my $text = "http://www.foo.com/ blah blah style:font";
$finder->find(\$text);
print $text'
prints:
[http://www.foo.com/] blah blah style:font