summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-02 21:45:39 +0000
committerNorbert Preining <preining@logic.at>2007-12-02 21:45:39 +0000
commit70291907e32cebd035f77ca6022ffb8afc61ffbe (patch)
treec05b6c628d08fe0c14c27b45d6f84d587beda090 /Master/tlpkg/TeXLive/TLPOBJ.pm
parenta1662dd864373ddf3acdbd0c343f3ef2de66e1c2 (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.pm12
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 = &quotewords('\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;