remove unnecessary variable
parent
f3207cddc1
commit
4cf70291bc
|
@ -393,16 +393,13 @@ sub rcs_getctime ($) {
|
|||
eval q{use XML::Simple};
|
||||
local $/=undef;
|
||||
|
||||
# Sigh... doing things the hard way again
|
||||
my $repodir=$config{srcdir};
|
||||
|
||||
my $filer=substr($file, length($repodir));
|
||||
my $filer=substr($file, length($config{srcdir}));
|
||||
$filer =~ s:^[/]+::;
|
||||
|
||||
my $child = open(LOG, "-|");
|
||||
if (! $child) {
|
||||
exec("darcs", "changes", "--xml", "--reverse",
|
||||
"--repodir", "$repodir", "$filer")
|
||||
"--repodir", $config{srcdir}, $filer)
|
||||
|| error("'darcs changes $filer' failed to run");
|
||||
}
|
||||
|
||||
|
|
|
@ -8,7 +8,7 @@ msgid ""
|
|||
msgstr ""
|
||||
"Project-Id-Version: PACKAGE VERSION\n"
|
||||
"Report-Msgid-Bugs-To: \n"
|
||||
"POT-Creation-Date: 2009-04-04 18:19-0400\n"
|
||||
"POT-Creation-Date: 2009-04-04 18:50-0400\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
||||
"Language-Team: LANGUAGE <LL@li.org>\n"
|
||||
|
|
Loading…
Reference in New Issue