stylistic changes
authorJoey Hess <joey@kodama.kitenet.net>
Wed, 30 Jan 2008 00:36:35 +0000 (19:36 -0500)
committerJoey Hess <joey@kodama.kitenet.net>
Wed, 30 Jan 2008 00:36:35 +0000 (19:36 -0500)
Remarkably few. Also, I removed the stub for the obsolete rcs_notify function.

IkiWiki/Rcs/bazaar.pm

index 80aba6a4556d952d1a018f3d68cfe1f46e82f7db..8ca4ec07ac660565f06f17d7258280abdc4c6896 100644 (file)
@@ -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) = @_;