}
}
-sub extract_timestamp ($) {
- my ($out) = @_;
+sub extract_timestamp (@) {
+ # XXX filename passes through the shell here, should try to avoid
+ # that just in case
+ open (my $out, "@_ |");
my @log = bzr_log($out);
if (length @log < 1) {
eval q{use Date::Parse};
error($@) if $@;
- my $ctime = str2time($log[0]->{"timestamp"});
- return $ctime;
+ my $time = str2time($log[0]->{"timestamp"});
+ return $time;
}
sub rcs_getctime ($) {
my ($file) = @_;
- # XXX filename passes through the shell here, should try to avoid
- # that just in case
my @cmdline = ("bzr", "log", "--forward", "--limit", '1', "$config{srcdir}/$file");
- open (my $out, "@cmdline |");
- return extract_timestamp($out);
+ return extract_timestamp(@cmdline);
}
sub rcs_getmtime ($) {
my ($file) = @_;
- # XXX filename passes through the shell here, should try to avoid
- # that just in case
my @cmdline = ("bzr", "log", "--limit", '1', "$config{srcdir}/$file");
- open (my $out, "@cmdline |");
- return extract_timestamp($out);
+ return extract_timestamp(@cmdline);
}
1
timestamps on basewiki files shipped in the deb are sane.
* autoindex: Switch to using %wikistate instead of abusing
$pagestate{index}.
+ * bzr: Support rcs_getmtime, and fix rcs_getctime implementation
+ (Jelmer Vernooij)
-- Joey Hess <joeyh@debian.org> Sun, 04 Apr 2010 12:17:11 -0400