sometims I hate perl

This fixes the bug that made it not update pages linking to a new page
master
joey 2006-03-15 02:45:33 +00:00
parent b8af4e74f7
commit 2d1989983e
1 changed files with 2 additions and 4 deletions

View File

@ -639,8 +639,7 @@ FILE: foreach my $file (@files) {
foreach my $file (keys %rendered, @del) { foreach my $file (keys %rendered, @del) {
my $page=pagename($file); my $page=pagename($file);
if (exists $links{$page}) { if (exists $links{$page}) {
foreach my $link (@{$links{$page}}) { foreach my $link (map { bestlink($page, $_) } @{$links{$page}}) {
$link=bestlink($page, $link);
if (length $link && if (length $link &&
! exists $oldlinks{$page} || ! exists $oldlinks{$page} ||
! grep { $_ eq $link } @{$oldlinks{$page}}) { ! grep { $_ eq $link } @{$oldlinks{$page}}) {
@ -649,8 +648,7 @@ FILE: foreach my $file (@files) {
} }
} }
if (exists $oldlinks{$page}) { if (exists $oldlinks{$page}) {
foreach my $link (@{$oldlinks{$page}}) { foreach my $link (map { bestlink($page, $_) } @{$oldlinks{$page}}) {
$link=bestlink($page, $link);
if (length $link && if (length $link &&
! exists $links{$page} || ! exists $links{$page} ||
! grep { $_ eq $link } @{$links{$page}}) { ! grep { $_ eq $link } @{$links{$page}}) {