Mercurial > hg > Papers > 2012 > sugi-prosym

changeset 20:60962f5ce2f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 26 Nov 2012 19:27:17 +0900
parents def2005a5525
children a323397febf4
files Paper/o2tex Paper/sigjouto.pdf
diffstat 2 files changed, 4 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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
Binary file Paper/sigjouto.pdf has changed