remove unnecessary variable

master
Joey Hess 2009-04-04 19:04:02 -04:00
parent f3207cddc1
commit 4cf70291bc
2 changed files with 3 additions and 6 deletions

View File

@ -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");
}

View File

@ -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"