Committer: sbelyaev
Fix: Uninialized variables.U trunk/cgi-bin/LJ/S2/HeadContent.pm
Modified: trunk/cgi-bin/LJ/S2/HeadContent.pm =================================================================== --- trunk/cgi-bin/LJ/S2/HeadContent.pm 2011-06-29 08:38:37 UTC (rev 19398) +++ trunk/cgi-bin/LJ/S2/HeadContent.pm 2011-06-30 02:41:07 UTC (rev 19399) @@ -57,7 +57,9 @@ my $head_content = ''; my $base_url = $u->{'_journalbase'}; - if ($LJ::UNICODE) { + if ( $LJ::UNICODE ) { + my $charset = $opts->{'saycharset'} || "utf-8"; + $head_content .= qq(<meta http-equiv="Content-Type" ); $head_content .= qq(content="text/html;); $head_content .= qq(charset=$opts->{'saycharset'}" />\n); @@ -190,8 +192,9 @@ $head_content .= qq(/data/yadis/friends" />\n); my $get = $opts->{'getargs'}; + my $mode = $get->{'mode'} || ''; - if ( $get->{'mode'} eq "framed" ) { + if ( $mode eq "framed" ) { $head_content .= "<base target='_top' />"; }