r53471 - /trunk/dh-make-perl/lib/DhMakePerl.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Mar 1 20:26:09 UTC 2010
Author: dmn
Date: Mon Mar 1 20:26:01 2010
New Revision: 53471
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53471
Log:
copyright_from_changelog: run through perltidy -pbp
Modified:
trunk/dh-make-perl/lib/DhMakePerl.pm
Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53471&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Mon Mar 1 20:26:01 2010
@@ -1667,36 +1667,37 @@
}
sub copyright_from_changelog {
- my ( $self, $firstmaint, $firstyear ) = @_;
- my %maintainers = ();
- @{$maintainers{$firstmaint}} = ($firstyear);
-my $chglog = Parse::DebianChangelog->init(
- { infile => $self->debian_file('changelog') } );
- foreach($chglog->data()) {
- my $person = $_->Maintainer;
- my $date = $_->Date;
- my @date_pieces = split(" ", $date);
- my $year = $date_pieces[3];
- if(defined($maintainers{$person})) {
- push @{$maintainers{$person}}, $year;
- @{$maintainers{$person}} = sort(@{$maintainers{$person}});
- } else {
- @{$maintainers{$person}} = ($year);
- }
- }
- my @strings;
- foreach my $maint_name (keys %maintainers) {
- my $str = " ";
- my %uniq = map { $_ => 0 } @{$maintainers{$maint_name}};
- foreach(sort keys %uniq) {
- $str .= $_;
- $str .= ", ";
- }
- $str .= $maint_name;
- push @strings, $str;
- }
- @strings = sort @strings;
- return @strings;
+ my ( $self, $firstmaint, $firstyear ) = @_;
+ my %maintainers = ();
+ @{ $maintainers{$firstmaint} } = ($firstyear);
+ my $chglog = Parse::DebianChangelog->init(
+ { infile => $self->debian_file('changelog') } );
+ foreach ( $chglog->data() ) {
+ my $person = $_->Maintainer;
+ my $date = $_->Date;
+ my @date_pieces = split( " ", $date );
+ my $year = $date_pieces[3];
+ if ( defined( $maintainers{$person} ) ) {
+ push @{ $maintainers{$person} }, $year;
+ @{ $maintainers{$person} } = sort( @{ $maintainers{$person} } );
+ }
+ else {
+ @{ $maintainers{$person} } = ($year);
+ }
+ }
+ my @strings;
+ foreach my $maint_name ( keys %maintainers ) {
+ my $str = " ";
+ my %uniq = map { $_ => 0 } @{ $maintainers{$maint_name} };
+ foreach ( sort keys %uniq ) {
+ $str .= $_;
+ $str .= ", ";
+ }
+ $str .= $maint_name;
+ push @strings, $str;
+ }
+ @strings = sort @strings;
+ return @strings;
}
sub create_copyright {
More information about the Pkg-perl-cvs-commits
mailing list