Changeset 942

Timestamp:

06/09/06 17:04:38

Author:

miyagawa

Message:

Publish::CHTML: Don't die if body contains non-sjis mappable characters

Files:

• trunk/plagger/lib/Plagger/Plugin/Publish/CHTML.pm (modified) (2 diffs)

trunk/plagger/lib/Plagger/Plugin/Publish/CHTML.pm

@@ -20 +20 @@
-    my ($self, $context) = @_;
-    $self->{context} = $context;
-
+_
-    $self->{id} = time;
-    @{$self->{feeds}} = ();
@@ -123 +123 @@
-    my ($self, $file, $chtml, $symlink) = @_;
-    open my $out, ">:encoding($self->{conf}->{encoding})", $file or $self->context->error("$file: $!");
+    local $PerlIO::encoding::fallback = Encode::FB_HTMLCREF;
-    print $out $chtml;
-    close $out;