redirect()メソッドの引数$partのチェック方法を変更。

diff --git a/lib/Wiki.pm b/lib/Wiki.pm
index 00c3c9e..6e6fb15 100644 (file)
--- a/lib/Wiki.pm
+++ b/lib/Wiki.pm
@@ -1491,7 +1491,7 @@ sub redirect {
        my $page = shift;
        my $part = shift;
        my $url = $self->create_page_url($page);
-       if($part){
+       if($part ne ""){
                $url .= "#p".Util::url_encode($part);
        }
        $self->redirectURL($url);