Mercurial > hg > Papers > 2012 > sugi-prosym
changeset 20:60962f5ce2f7
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