diff options
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; |