[Libguestfs] [PATCH] podwrapper: Recognize git-style dates in ChangeLog

[Hilko Bengen]

---
 podwrapper.pl.in | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/podwrapper.pl.in b/podwrapper.pl.in
index 9bceec3..61d5e12 100755
--- a/podwrapper.pl.in
+++ b/podwrapper.pl.in
@@ -235,9 +235,17 @@ my $date;
 my $filename = "$abs_top_srcdir/ChangeLog";
 if (-r $filename) {
     open FILE, $filename or die "$progname: $filename: $!";
-    $_ = <FILE>;
+    while (<FILE>) {
+        if (/^Date:\s+...\s+(...)\s+(\d+)\s+..:..:..\s+(\d{4})\s+.*$/) {
+            my $i = 0;
+            my %month =
+              map { $_ => ++$i }
+                (qw< Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec >);
+            $date = sprintf '%04d-%02d-%02d', $3, $month{$1}, $2;
+            last;
+        }
+    }
     close FILE;
-    $date = $1 if /^(\d+-\d+-\d+)\s/;
 }
 $filename = "$abs_top_srcdir/.git";
 if (!$date && -d $filename) {
-- 
1.9.0.rc3