summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 88aef34b345..fee7b630025 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -119,16 +119,17 @@ sub from_fh {
# do manual parsing
# this is not optimal, but since we support only two tags there
# are not so many cases
- if ($rest =~ m/^details="(.*)"\s*$/) {
- $self->{'docfiledata'}{$f}{'details'} = $1;
- } elsif ($rest =~ m/^language="(.*)"\s*$/) {
- $self->{'docfiledata'}{$f}{'language'} = $1;
- } elsif ($rest =~ m/^language="(.*)"\s+details="(.*)"\s*$/) {
+ # Warning: need tp check the double cases first!!!
+ if ($rest =~ m/^language="(.*)"\s+details="(.*)"\s*$/) {
$self->{'docfiledata'}{$f}{'details'} = $2;
$self->{'docfiledata'}{$f}{'language'} = $1;
} elsif ($rest =~ m/^details="(.*)"\s+language="(.*)"\s*$/) {
$self->{'docfiledata'}{$f}{'details'} = $1;
$self->{'docfiledata'}{$f}{'language'} = $2;
+ } elsif ($rest =~ m/^details="(.*)"\s*$/) {
+ $self->{'docfiledata'}{$f}{'details'} = $1;
+ } elsif ($rest =~ m/^language="(.*)"\s*$/) {
+ $self->{'docfiledata'}{$f}{'language'} = $1;
} else {
tlwarn("$0: Unparsable tagging in TLPDB line: $line\n");
}