Changeset Navigation

Changeset 222

Timestamp:

03/01/06 19:17:44

Author:

miyagawa

Message:

fix count in TTP filter

Files:

r217	r222
36	36	local @URI::ttp::ISA = qw(URI::http);
37	37
	38	my $count = 0;
38	39	my $finder = URI::Find->new(sub {
39	40	my ($uri, $orig_uri) = @_;
40		return ($uri->scheme eq 'ttp') ? qq{<a href="h$orig_uri">$orig_uri</a>} : $orig_uri;
	41	if ($uri->scheme eq 'ttp') {
	42	$count++;
	43	return qq{<a href="h$orig_uri">$orig_uri</a>};
	44	} else {
	45	return $orig_uri;
	46	}
41	47	});
42	48
43		my $count = $finder->find(\$body);
44
	49	$finder->find(\$body);
45	50	($count, $body);
46	51	}