fix uninitilized value warning on bad page name

master
Joey Hess 2011-01-22 10:06:17 -04:00
parent 5247e12dc7
commit 5d3998555f
1 changed files with 2 additions and 2 deletions

View File

@ -91,12 +91,12 @@ sub cgi_editpage ($$) {
# This untaint is safe because we check file_pruned and
# wiki_file_regexp.
my ($page)=$form->field('page')=~/$config{wiki_file_regexp}/;
$page=possibly_foolish_untaint($page);
my $absolute=($page =~ s#^/+##); # absolute name used to force location
if (! defined $page || ! length $page ||
file_pruned($page)) {
error(gettext("bad page name"));
}
$page=possibly_foolish_untaint($page);
my $absolute=($page =~ s#^/+##); # absolute name used to force location
my $baseurl = urlto($page);