summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--IkiWiki/Rcs/bazaar.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/IkiWiki/Rcs/bazaar.pm b/IkiWiki/Rcs/bazaar.pm
index 80aba6a45..8ca4ec07a 100644
--- a/IkiWiki/Rcs/bazaar.pm
+++ b/IkiWiki/Rcs/bazaar.pm
@@ -8,7 +8,7 @@ use open qw{:utf8 :std};
package IkiWiki;
-sub bazaar_log($) {
+sub bazaar_log ($) { #{{{
my $out = shift;
my @infos = ();
my $key = undef;
@@ -19,15 +19,19 @@ sub bazaar_log($) {
if ($line =~ /^message:/) {
$key = "message";
$infos[$#infos]{$key} = "";
- } elsif ($line =~ /^(modified|added|renamed|renamed and modified|removed):/) {
+ }
+ elsif ($line =~ /^(modified|added|renamed|renamed and modified|removed):/) {
$key = "files";
unless (defined($infos[$#infos]{$key})) { $infos[$#infos]{$key} = ""; }
- } elsif (defined($key) and $line =~ /^ (.*)/) {
+ }
+ elsif (defined($key) and $line =~ /^ (.*)/) {
$infos[$#infos]{$key} .= $1;
- } elsif ($line eq "------------------------------------------------------------\n") {
+ }
+ elsif ($line eq "------------------------------------------------------------\n") {
$key = undef;
push (@infos, {});
- } else {
+ }
+ else {
chomp $line;
($key, $value) = split /: +/, $line, 2;
$infos[$#infos]{$key} = $value;
@@ -36,10 +40,10 @@ sub bazaar_log($) {
close $out;
return @infos;
-}
+} #}}}
sub rcs_update () { #{{{
- my @cmdline = ("bzr", "$config{srcdir}", "update");
+ my @cmdline = ("bzr", $config{srcdir}, "update");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
@@ -135,10 +139,6 @@ sub rcs_recentchanges ($) { #{{{
return @ret;
} #}}}
-sub rcs_notify () { #{{{
- # TODO
-} #}}}
-
sub rcs_getctime ($) { #{{{
my ($file) = @_;