ぐうますさん提供のバグ修正用パッチを適用。

diff --git a/lib/Wiki.pm b/lib/Wiki.pm
index 6a60b39..ca546d4 100644 (file)
--- a/lib/Wiki.pm
+++ b/lib/Wiki.pm
@@ -1073,6 +1073,9 @@ sub set_page_level {
        my $page  = shift;
        my $level = shift;
        
+       # $level ¤¬Ì¤ÄêµÁ¤Ê¤é¥Ú¡¼¥¸¥Ç¡¼¥¿ºï½ü¤Ê¤Î¤Ç¡¢¥Õ¥Ã¥¯´ØÏ¢½èÍýÉÔÍס£
+       return $self->{"storage"}->set_page_level($page) if (not defined $level);
+
        # Í¿¤¨¤é¤ì¤¿ $level ¤¬¸½ºß¤Î¥Ú¡¼¥¸¥ì¥Ù¥ë¤ÈÅù¤·¤±¤ì¤Ð²¿¤â¤»¤º¤Ë½ªÎ»¡£
        my $old_level = $self->get_page_level($page);
        return if ($level == $old_level);