summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-03 07:27:46 +0000
committerNorbert Preining <preining@logic.at>2007-12-03 07:27:46 +0000
commit7ff83be1eee42c67d1a93a1935a883e28b7975db (patch)
tree599c9dd8e75cced632eec8e17ca13e69f7ecb79b
parentfb262431c19afce0494dc3943df8fd3a483fa2ec (diff)
ok, we need FileHandle until someone tells me how to get formats right
git-svn-id: svn://tug.org/texlive/trunk@5690 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm11
1 files changed, 2 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 844a449ef9e..8b78396796c 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -10,7 +10,7 @@ use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp $MetaCategoriesRegex
use TeXLive::TLUtils;
#use File::Path;
use TeXLive::TLTREE;
-#use FileHandle; # $fh->getline() in from_fh, can we rewritten
+use FileHandle; # format_name in writeout, no idea how to rewrite
#use File::Basename;
my $_tmp;
@@ -255,16 +255,13 @@ sub _recompute_size {
sub writeout {
my $self = shift;
my $fd = (@_ ? $_[0] : STDOUT);
- # ugly hack to get rid of the FileHandle module, see man perlform
- # which is needed for format_name
- #format_name $fd "multilineformat";
- select((select($fd),$~ = "multilineformat")[0]);
print $fd "name ", $self->name, "\n";
print $fd "category ", $self->category, "\n";
defined($self->{'revision'}) && print $fd "revision $self->{'revision'}\n";
defined($self->{'catalogue'}) && print $fd "catalogue $self->{'catalogue'}\n";
defined($self->{'shortdesc'}) && print $fd "shortdesc $self->{'shortdesc'}\n";
defined($self->{'license'}) && print $fd "license $self->{'license'}\n";
+ format_name $fd "multilineformat";
if (defined($self->{'longdesc'})) {
$_tmp = "$self->{'longdesc'}";
write $fd;
@@ -321,10 +318,6 @@ sub writeout {
sub writeout_simple {
my $self = shift;
my $fd = (@_ ? $_[0] : STDOUT);
- # ugly hack to get rid of the FileHandle module, see man perlform
- # which is needed for format_name
- #format_name $fd "multilineformat";
- select((select($fd),$~ = "multilineformat")[0]);
print $fd "name ", $self->name, "\n";
print $fd "category ", $self->category, "\n";
if (defined($self->{'depends'})) {