[Slashdotjp-dev 751] [263] Fix: Wide character in print warning at new_headfoot.pl

アーカイブの一覧に戻る

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;


Slashdotjp-dev メーリングリストの案内
アーカイブの一覧に戻る