summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-17 08:34:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-17 08:34:03 +0000
commit3be0a63c4b0f259c12d17e44f55db30fa41dd512 (patch)
treecd225d5a8166b4bb491db31ee7727eebd9f92d8d
parentf082ad4216147e3f55d5cedd5f202d3e6cfccfe6 (diff)
downloaddrakx-3be0a63c4b0f259c12d17e44f55db30fa41dd512.tar
drakx-3be0a63c4b0f259c12d17e44f55db30fa41dd512.tar.gz
drakx-3be0a63c4b0f259c12d17e44f55db30fa41dd512.tar.bz2
drakx-3be0a63c4b0f259c12d17e44f55db30fa41dd512.tar.xz
drakx-3be0a63c4b0f259c12d17e44f55db30fa41dd512.zip
perl_checker cleanups
-rwxr-xr-xtools/cvslog2changelog.pl27
1 files changed, 17 insertions, 10 deletions
diff --git a/tools/cvslog2changelog.pl b/tools/cvslog2changelog.pl
index 9bb3b22e4..0da8faa50 100755
--- a/tools/cvslog2changelog.pl
+++ b/tools/cvslog2changelog.pl
@@ -1,7 +1,11 @@
#!/usr/bin/perl
+my %l;
+{
+my ($date, $user, $file);
+local $_;
while (<>) {
- if ($e = /^description:/ .. /^={77}/) {
+ if (my $e = /^description:/ .. /^={77}/) {
next if $e == 1 || $e =~ /E0/;
if (/^-{28}/ .. /^date: /) {
if (/^date: (\S+)\s.*author: (\S+);/) {
@@ -14,22 +18,25 @@ while (<>) {
$file = $1;
}
}
+}
+
-foreach $date (reverse sort keys %l) {
- foreach $user (sort keys %{$l{$date}}) {
+my %users;
+foreach my $date (reverse sort keys %l) {
+ foreach my $user (sort keys %{$l{$date}}) {
next if $ENV{AUTHOR} && $ENV{AUTHOR} ne $user;
- $fuser = $users{$user} || $user;
+ my $fuser = $users{$user} || $user;
print "$date $fuser\n\n";
my %inv;
- while (($file, $log) = each %{$l{$date}{$user}}) {
+ while (my ($file, $log) = each %{$l{$date}{$user}}) {
$log =~ s/^\s+( \*)?//ms;
$log =~ s/\s+$//ms;
$log = "\n$log" if $log =~ /^-/;
push @{$inv{$log}}, $file;
}
- foreach $log (keys %inv) {
- $line = join(', ', @{$inv{$log}}) . ($log !~ /^\(/ && ':') . " $log";
+ foreach my $log (keys %inv) {
+ my $line = join(', ', @{$inv{$log}}) . ($log !~ /^\(/ && ':') . " $log";
print "\t* ", join("\n\t", auto_fill($line, 72)), "\n\n";
}
}
@@ -65,9 +72,9 @@ BEGIN {
'install' => 'DrakX <install at mandrakesoft.com>',
'prigaux' => 'Pixel <pixel at mandrakesoft.com>',
'flepied' => 'Frederic Lepied <flepied at mandrakesoft.com>',
- 'tvignaud' =>'Thierry Vignaud <tvignaud at mandrakesoft.com>',
- 'sbenedict'=>'Stew Benedict <sbenedict at mandrakesoft.com>',
- 'tkamppeter'=>'Till Kamppeter <till at mandrakesoft.com>',
+ 'tvignaud' => 'Thierry Vignaud <tvignaud at mandrakesoft.com>',
+ 'sbenedict' => 'Stew Benedict <sbenedict at mandrakesoft.com>',
+ 'tkamppeter' => 'Till Kamppeter <till at mandrakesoft.com>',
'daouda' => 'Daouda Lo <daouda at mandrakesoft.com>',
'dchaumette' => 'Damien Chaumette <dchaumette at mandrakesoft.com>',
'warly' => 'Warly <warly at mandrakesoft.com>',