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

more idiomatic perl

master
Joey Hess 2010-04-04 12:23:12 -04:00
parent 2a15f94159
commit c9af069b59
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
IkiWiki/Plugin/bzr.pm
View File

@ -83,15 +83,13 @@ sub bzr_log ($) {
}
elsif ($line =~ /^(modified|added|renamed|renamed and modified|removed):/) {
$key = "files";
unless (defined($info{$key})) { $info{$key} = ""; }
$info{$key} = "" unless defined $info{$key};
}
elsif (defined($key) and $line =~ /^ (.*)/) {
$info{$key} .= "$1\n";
}
elsif ($line eq "------------------------------------------------------------\n") {
if (keys %info) {
push (@infos, {%info});
}
push @infos, {%info} if keys %info;
%info = ();
$key = undef;
}