Changeset 24406

Timestamp:

11/20/08 11:37:12 (5 years ago)

Author:

mattn

Message:

oops

Files:

• lang/perl/MENTOS/trunk/plugins/blog.pl (modified) (1 diff)

lang/perl/MENTOS/trunk/plugins/blog.pl

@@ -29 +29 @@
         pubdate => strftime("%y-%m-%d %H:%M:%S", localtime($mtime)),
         photo => $photo,
-        meta => (),
+        meta => {},
     };
 
-    $content =~ /^([^\n]+)\n(meta-\w+:.*?\n)*\n(.*)/ms;
+    $content =~ /^([^\n]+)\n((?:meta-\w+:.*?\n)*)\n(.*)/ms;
     $entry->{title} = $1;
     $entry->{description} = $3;
-    for my $line (split(/\n/, $2)) {
+    my $meta = $2||'';
+    for my $line (split(/\n/, $meta)) {
         $line =~ /^meta-([^:]+):\s*(.*)$/;
-        $entry->{meta}{$1} = $2;
+        $entry->{meta}->{$1} = $2;
     }
-    if ($mode ne 'edit') {
-        if (my $renderer = $entry->{meta}{renderer}) {
+    if (!$mode || 'edit' ne $mode) {
+        if (my $renderer = $entry->{meta}->{renderer}) {
             if ('hatena' eq $renderer) {
                 require 'Text/Hatena.pm';