mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

podwrapper: Recognize git-style dates in ChangeLog

Browse Source
This commit is contained in:
Hilko Bengen
2014-02-14 09:09:47 +01:00
parent bf8d75590c
commit bbfb9f9480
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
podwrapper.pl.in
View File

@@ -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) {