Changeset Navigation

Changeset 915

Timestamp:

06/07/06 16:29:50

Author:

miyagawa

Message:

Filter::TruePermalink?: revert $args support in rewrite. Revert back reddit.yaml

Files:

r760	r915
49	49	my($self, $context, $args) = @_;
50	50
51		$self->rewrite(sub { $args->{entry}->link }, sub { $args->{entry}->link(@_) });
	51	$self->rewrite(sub { $args->{entry}->link }, sub { $args->{entry}->link(@_) }, $args);
52	52	for my $enclosure ($args->{entry}->enclosures) {
53	53	$self->rewrite(sub { $enclosure->url }, sub { $enclosure->url( URI->new(@_) ) });
…	…
59	59
60	60	my $loop;
61		while ($self->rewrite_link($getter, $callback)) {
	61	while ($self->rewrite_link($getter, $callback, $args)) {
62	62	if ($loop++ >= 100) {
63	63	Plagger->error("Possible infinite loop on " . $getter->());
…	…
67	67
68	68	sub rewrite_link {
69		my($self, $getter, $callback) = @_;
	69	my($self, $getter, $callback, $args) = @_;
70	70
71	71	my $context = Plagger->context;