From 274fb900263bdd460797629ebdc960dc09ef42c0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Tue, 29 Jan 2008 19:36:35 -0500
Subject: [PATCH] stylistic changes

Remarkably few. Also, I removed the stub for the obsolete rcs_notify function.
---
 IkiWiki/Rcs/bazaar.pm | 22 +++++++++++-----------
 1 file 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) = @_;
 
-- 
2.44.0