fix a deadloop if from ended in a /

master
joey 2006-04-25 01:15:20 +00:00
parent 1ba7023746
commit 1f06b39788
1 changed files with 2 additions and 2 deletions

View File

@ -378,7 +378,7 @@ sub cgi_editpage ($$) { #{{{
} }
else { else {
my $dir=$from."/"; my $dir=$from."/";
$dir=~s![^/]+/$!!; $dir=~s![^/]+/+$!!;
if ((defined $form->param('subpage') && length $form->param('subpage')) || if ((defined $form->param('subpage') && length $form->param('subpage')) ||
$page eq 'discussion') { $page eq 'discussion') {
@ -391,7 +391,7 @@ sub cgi_editpage ($$) { #{{{
push @page_locs, $dir.$page; push @page_locs, $dir.$page;
push @page_locs, "$from/$page"; push @page_locs, "$from/$page";
while (length $dir) { while (length $dir) {
$dir=~s![^/]+/$!!; $dir=~s![^/]+/+$!!;
push @page_locs, $dir.$page; push @page_locs, $dir.$page;
} }