fix a deadloop if from ended in a /
parent
1ba7023746
commit
1f06b39788
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue