More lenient parsing of the meta line
authorBarijaona Ramaholimihaso <barijaona@users.sourceforge.net>
Thu, 13 Sep 2007 02:27:35 +0000 (02:27 +0000)
committerBarijaona Ramaholimihaso <barijaona@users.sourceforge.net>
Thu, 13 Sep 2007 02:27:35 +0000 (02:27 +0000)
general/meta

index 087238571b53e5647b122aaa626e371711288c6a..95994de7bf76c47ca2a869f4504986f1a6c010d9 100644 (file)
@@ -26,7 +26,7 @@ sub story {
   foreach ( split /\n/, $$body_ref ) {
     /^\s*$/ and $in_header = 0 and next;
     if ( $in_header ) {
   foreach ( split /\n/, $$body_ref ) {
     /^\s*$/ and $in_header = 0 and next;
     if ( $in_header ) {
-      my($key, $value) = m!^$meta_prefix(.+?):\s*(.+)$!;
+      my($key, $value) = m!^$meta_prefix(.+?)\s*:\s*(.+)$!;
       $key =~ /^\w+$/ and push(@keys,$key) and $$key = $value and next;
     }
     $body .= $_ . "\n";
       $key =~ /^\w+$/ and push(@keys,$key) and $$key = $value and next;
     }
     $body .= $_ . "\n";