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; package IkiWiki;
sub bazaar_log($) { sub bazaar_log ($) { #{{{
my $out = shift; my $out = shift;
my @infos = (); my @infos = ();
my $key = undef; my $key = undef;
@ -19,15 +19,19 @@ sub bazaar_log($) {
if ($line =~ /^message:/) { if ($line =~ /^message:/) {
$key = "message"; $key = "message";
$infos[$#infos]{$key} = ""; $infos[$#infos]{$key} = "";
} elsif ($line =~ /^(modified|added|renamed|renamed and modified|removed):/) { }
elsif ($line =~ /^(modified|added|renamed|renamed and modified|removed):/) {
$key = "files"; $key = "files";
unless (defined($infos[$#infos]{$key})) { $infos[$#infos]{$key} = ""; } unless (defined($infos[$#infos]{$key})) { $infos[$#infos]{$key} = ""; }
} elsif (defined($key) and $line =~ /^ (.*)/) { }
elsif (defined($key) and $line =~ /^ (.*)/) {
$infos[$#infos]{$key} .= $1; $infos[$#infos]{$key} .= $1;
} elsif ($line eq "------------------------------------------------------------\n") { }
elsif ($line eq "------------------------------------------------------------\n") {
$key = undef; $key = undef;
push (@infos, {}); push (@infos, {});
} else { }
else {
chomp $line; chomp $line;
($key, $value) = split /: +/, $line, 2; ($key, $value) = split /: +/, $line, 2;
$infos[$#infos]{$key} = $value; $infos[$#infos]{$key} = $value;
@ -36,10 +40,10 @@ sub bazaar_log($) {
close $out; close $out;
return @infos; return @infos;
} } #}}}
sub rcs_update () { #{{{ sub rcs_update () { #{{{
my @cmdline = ("bzr", "$config{srcdir}", "update"); my @cmdline = ("bzr", $config{srcdir}, "update");
if (system(@cmdline) != 0) { if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!"; warn "'@cmdline' failed: $!";
} }
@ -135,10 +139,6 @@ sub rcs_recentchanges ($) { #{{{
return @ret; return @ret;
} #}}} } #}}}
sub rcs_notify () { #{{{
# TODO
} #}}}
sub rcs_getctime ($) { #{{{ sub rcs_getctime ($) { #{{{
my ($file) = @_; my ($file) = @_;