From: Joey Hess Date: Sun, 4 Apr 2010 16:17:03 +0000 (-0400) Subject: fix indentation & whitespace X-Git-Tag: 3.20100427~243 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=f206035a3a7ed0b37c082e80d6d1482983fa583b;p=ikiwiki.git fix indentation & whitespace --- diff --git a/IkiWiki/Plugin/bzr.pm b/IkiWiki/Plugin/bzr.pm index e813331b7..6e45c39e4 100644 --- a/IkiWiki/Plugin/bzr.pm +++ b/IkiWiki/Plugin/bzr.pm @@ -73,7 +73,7 @@ sub bzr_log ($) { my @infos = (); my $key = undef; - my $hash = {}; + my $hash = {}; while (<$out>) { my $line = $_; my ($value); @@ -89,10 +89,10 @@ sub bzr_log ($) { $$hash{$key} .= "$1\n"; } elsif ($line eq "------------------------------------------------------------\n") { - if (keys %$hash) { - push (@infos, $hash); - } - $hash = {}; + if (keys %$hash) { + push (@infos, $hash); + } + $hash = {}; $key = undef; } elsif ($line =~ /: /) { @@ -100,11 +100,12 @@ sub bzr_log ($) { if ($line =~ /^revno: (\d+)/) { $key = "revno"; $value = $1; - } else { - ($key, $value) = split /: +/, $line, 2; - } + } + else { + ($key, $value) = split /: +/, $line, 2; + } $$hash{$key} = $value; - } + } } close $out; @@ -222,7 +223,7 @@ sub rcs_recentchanges ($) { foreach my $info (bzr_log($out)) { my @pages = (); my @message = (); - + foreach my $msgline (split(/\n/, $info->{message})) { push @message, { line => $msgline }; }