urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

stylistic changes 

Remarkably few. Also, I removed the stub for the obsolete rcs_notify function.
master
Joey Hess 2008-01-29 19:36:35 -05:00
parent cddc335b2b
commit 274fb90026
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
IkiWiki/Rcs/bazaar.pm
View 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) = @_;