マスタカの ChangeLog メモ

■ 「未分類」というカテゴリを作りました。 [chalow]

カテゴライズしていない記事を救うために(?)、「未分類」というカテゴリ
を作りました。今回は ChangeLogReader.pm へのパッチです。意外に簡単
でした。

--- ChangeLogReader.pm.org	2005-08-10 11:31:46.000000000 +0900
+++ ChangeLogReader.pm	2009-04-08 21:00:41.000000000 +0900
@@ -152,6 +152,8 @@
 #    print "[[[[$ih]]]\n";
     if ($ih =~ s/\s*\[(.+)\]$//) { # category
 	@cat = split(/\s*\]\s*\[\s*/, $1);
+    } else {
+	push(@cat, "未分類");
     }

     # Processing item content

ついでに軽い不具合も発見したので修正。カテゴリに含まれる記事の数が
$cat_page_entry_max の倍数だと、「次ページ」を 1 つ多く作っていました。

--- chalow.org	2007-10-19 23:15:01.000000000 +0900
+++ chalow	2009-04-08 21:54:41.000000000 +0900
@@ -661,6 +661,10 @@
         my $n = $cat_page_entry_max;
         my $num_of_old_pages = int(@ents / $n);

+	if (int(@ents % $n) == 0) {
+	    $num_of_old_pages -= 1;
+	}
+
         my @fnames;
         for (my $i = 0; $i <= $num_of_old_pages; $i++) {
             $fnames[$i] = get_category_filename($catname);

追記(2011-07-06):
後者の修正は GitHub に push しました。