diff options
author | Norbert Preining <preining@logic.at> | 2007-12-02 21:45:39 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-02 21:45:39 +0000 |
commit | 70291907e32cebd035f77ca6022ffb8afc61ffbe (patch) | |
tree | c05b6c628d08fe0c14c27b45d6f84d587beda090 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | a1662dd864373ddf3acdbd0c343f3ef2de66e1c2 (diff) |
get rid of various perl modules
git-svn-id: svn://tug.org/texlive/trunk@5686 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 45fb07d75d6..9a73d6bd8da 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -8,12 +8,11 @@ package TeXLive::TLPOBJ; use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp $MetaCategoriesRegexp $InfraLocation); use TeXLive::TLUtils; -use File::Path; +#use File::Path; use Cwd; use TeXLive::TLTREE; -use FileHandle; -use Text::ParseWords; -use File::Basename; +#use FileHandle; # $fh->getline() in from_fh, can we rewritten +#use File::Basename; my $_tmp; my $_containerdir; @@ -64,7 +63,8 @@ sub from_fh { my $arch; my $size; - while (my $line = $fh->getline) { + #while (my $line = $fh->getline) { + while (my $line = <$fh>) { &TeXLive::TLUtils::debug("reading line: >>>$line<<<"); $line =~ /^\s*#/ && next; # skip comment lines if ($line =~ /^\s*$/) { @@ -141,7 +141,7 @@ sub from_fh { next; } elsif ($line =~ /^docfilescontinued\s+(.*)$/) { # docfiles can have tags - my @words = "ewords('\s+', 0, "$1"); + my @words = &TeXLive::TLUtils::quotewords('\s+', 0, "$1"); # the first entry is the file my $f = shift @words; push @{$self->{'docfiles'}}, $f; |