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