Tell Perl that we're handling the UTF stuff on our own.
Patch by fu.
diffs (16 lines):
diff -r 26d7bb11b894 -r 2611214434c0 cgi-bin/LJ/S2.pm
--- a/cgi-bin/LJ/S2.pm Tue May 25 18:20:37 2010 +0800
+++ b/cgi-bin/LJ/S2.pm Wed May 26 19:56:58 2010 +0800
@@ -1851,10 +1851,11 @@ sub Entry
foreach my $xpostkey ( keys %$xposthash ) {
my $xpostvalue = $xposthash->{$xpostkey};
if ( $xpostvalue->{url} ) {
+ my $xpost_url = LJ::no_utf8_flag( $xpostvalue->{url} );
if ( $xpostlinks ) {
$xpostlinks = $xpostlinks . " ";
}
- $xpostlinks = $xpostlinks . '<a href = "' .
$xpostvalue->{url} . '">' . $xpostvalue->{url} . '</a>';
+ $xpostlinks = $xpostlinks . '<a href = "' . $xpost_url . '">'
. $xpost_url . '</a>';
}
}
if ( $xpostlinks ) {
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
