summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-09-13 00:33:05 +0000
committerKarl Berry <karl@freefriends.org>2009-09-13 00:33:05 +0000
commitb7b45f2375ea7ede16d5d11f7dc378a9bbdf4d12 (patch)
treea62824685c390756d3be10e660d0f4f94da3a082 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent967482f6023c48d6dbc53d1b1d6e7dd0fb394f47 (diff)
more date parsing generalization
git-svn-id: svn://tug.org/texlive/trunk@15253 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 1d438f9d203..5296ed49d82 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -749,7 +749,11 @@ sub update_from_catalogue {
if (defined($entry->entry->{'date'})) {
my $foo = $entry->entry->{'date'};
$foo =~ s/^.Date: //;
- $foo =~ s/ \(.*\) \$ *$//;
+ # trying to extract the interesting part of a subversion date
+ # keyword expansion here, e.g.,
+ # $Date$
+ # ->2007-08-15 19:43:35 +0100
+ $foo =~ s/ \(.*\)( \$ *)$//; # maybe nothing after parens
$self->cataloguedata->{'date'} = $foo;
}
if (defined($entry->license)) {