svnno****@sourc*****
svnno****@sourc*****
2007年 11月 19日 (月) 17:32:23 JST
Revision: 263 http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=263 Author: tach Date: 2007-11-19 17:32:22 +0900 (Mon, 19 Nov 2007) Log Message: ----------- Fix: Wide character in print warning at new_headfoot.pl Modified Paths: -------------- slashjp/trunk/debian/changelog slashjp/trunk/themes/slashcode/tasks/new_headfoot.pl -------------- next part -------------- Modified: slashjp/trunk/debian/changelog =================================================================== --- slashjp/trunk/debian/changelog 2007-11-19 07:56:26 UTC (rev 262) +++ slashjp/trunk/debian/changelog 2007-11-19 08:32:22 UTC (rev 263) @@ -1,8 +1,9 @@ slash (2.5.0.184-1) unstable; urgency=low * New upstream CVS release + * Fix: Wide character in print warning at new_headfoot.pl - -- Taku YASUI <tach****@osdn*****> Mon, 19 Nov 2007 07:55:03 +0000 + -- Taku YASUI <tach****@osdn*****> Mon, 19 Nov 2007 17:32:07 +0900 slash (2.5.0.183-0.1) unstable; urgency=low Modified: slashjp/trunk/themes/slashcode/tasks/new_headfoot.pl =================================================================== --- slashjp/trunk/themes/slashcode/tasks/new_headfoot.pl 2007-11-19 07:56:26 UTC (rev 262) +++ slashjp/trunk/themes/slashcode/tasks/new_headfoot.pl 2007-11-19 08:32:22 UTC (rev 263) @@ -25,6 +25,7 @@ my $file = "$constants->{basedir}/slashhead-gen-full.inc"; open my $fh, ">$file" or die "Can't open $file : $!"; + binmode $fh, ':utf8'; setCurrentForm('ssi', 1); my $header = header("", "", { noheader => 1, Return => 1 }); setCurrentForm('ssi', 0); @@ -33,6 +34,7 @@ $file = "$constants->{basedir}/slashcssbase.inc"; open $fh, ">$file" or die "Can't open $file : $!"; + binmode $fh, ':utf8'; my $cssbase = slashDisplay("html-header", { only_css => 1}, { Return => 1 }); print $fh $cssbase; @@ -71,6 +73,7 @@ } open my $fh, ">$file" or die "Can't open $file : $!"; + binmode $fh, ':utf8'; my $header = header("", $skinname, { noheader => 1, Return => 1, Page => $_->[0], nopageid => 1 }); print $fh $header; close $fh; @@ -79,6 +82,7 @@ setCurrentForm('ssi', 0); open my $fh, ">$constants->{basedir}/$skinname/slashfoot.inc" or die "Can't open $constants->{basedir}/$skinname/slashfoot.inc: $!"; + binmode $fh, ':utf8'; my $footer = footer({ Return => 1 }); print $fh $footer; close $fh;