From b7b45f2375ea7ede16d5d11f7dc378a9bbdf4d12 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 13 Sep 2009 00:33:05 +0000 Subject: more date parsing generalization git-svn-id: svn://tug.org/texlive/trunk@15253 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) { -- cgit v1.2.3