# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1353925637 -32400
# Node ID 60962f5ce2f7a230b112f78af7d71e647e6b99d8
# Parent  def2005a5525222d368453f4c5fab1c7d90e07ff
fix

diff -r def2005a5525 -r 60962f5ce2f7 Paper/o2tex
--- a/Paper/o2tex	Mon Nov 26 19:24:10 2012 +0900
+++ b/Paper/o2tex	Mon Nov 26 19:27:17 2012 +0900
@@ -136,13 +136,7 @@
 
 close $fh;
 
-
-#$[ = 1;			# set array base to 1
-#$FS = ' ';		# set field separator
-#$, = ' ';		# set output field separator
-#$\ = "\n";		# set output record separator
-
-#$FS = "\n";
+$\ = "\n";
 
 my $depth = 0;
 my $section = 1;
@@ -495,8 +489,9 @@
 
 sub Pick {
     my ($mode,$name,$pipe) = @_;
+    $pipe = "" if (! defined $pipe) ;
     if (! defined $opened{$name}) {
-	open(my $mfh,$mode.$name.$pipe);
+	open(my $mfh,$mode, $name.$pipe);
         $fh = $mfh;
     }
     1;
@@ -509,7 +504,7 @@
 if (! -f "Makefile") {
 open($fh,">Makefile"); select($fh);
 print "PAPER = ". $paper . "\n";
-print <<RogueRogue;
+print <<"RogueRogue";
 
 PRINTER = ab
 OHP = ohp
diff -r def2005a5525 -r 60962f5ce2f7 Paper/sigjouto.pdf
Binary file Paper/sigjouto.pdf has changed