diff options
author | Norbert Preining <preining@logic.at> | 2007-12-03 07:27:46 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-03 07:27:46 +0000 |
commit | 7ff83be1eee42c67d1a93a1935a883e28b7975db (patch) | |
tree | 599c9dd8e75cced632eec8e17ca13e69f7ecb79b /Master | |
parent | fb262431c19afce0494dc3943df8fd3a483fa2ec (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
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 11 |
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'})) { |