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}; eval q{use XML::Simple};
local $/=undef; local $/=undef;
# Sigh... doing things the hard way again my $filer=substr($file, length($config{srcdir}));
my $repodir=$config{srcdir};
my $filer=substr($file, length($repodir));
$filer =~ s:^[/]+::; $filer =~ s:^[/]+::;
my $child = open(LOG, "-|"); my $child = open(LOG, "-|");
if (! $child) { if (! $child) {
exec("darcs", "changes", "--xml", "--reverse", exec("darcs", "changes", "--xml", "--reverse",
"--repodir", "$repodir", "$filer") "--repodir", $config{srcdir}, $filer)
|| error("'darcs changes $filer' failed to run"); || error("'darcs changes $filer' failed to run");
} }

View File

@ -8,7 +8,7 @@ msgid ""
msgstr "" msgstr ""
"Project-Id-Version: PACKAGE VERSION\n" "Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \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" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n" "Language-Team: LANGUAGE <LL@li.org>\n"