Remove Perl6::Say (thanks rgs), perltidy
authorLeon Brocard <acme@astray.com>
Mon, 16 Feb 2009 16:20:47 +0000 (00:20 +0800)
committerLeon Brocard <acme@astray.com>
Mon, 16 Feb 2009 16:20:47 +0000 (00:20 +0800)
Porting/genlog_git

index 5ae6cec..9c30fc0 100755 (executable)
@@ -2,14 +2,13 @@
 use strict;
 use warnings;
 use IO::File;
-use Perl6::Say;
 use DateTime;
 
 my $fh = IO::File->new("git log --pretty=raw --stat -z | ") || die $!;
 $/ = "\0";
 while ( my $bit = <$fh> ) {
     last if $bit =~ /p4raw-id/;
-$bit =~ s/git-svn-id.+$//m;
+    $bit =~ s/git-svn-id.+$//m;
 
     my ($commit) = $bit =~ /^commit ([a-z0-9]+)$/m;
     my ( $author, $epoch ) = $bit =~ /^author (.+)<.+?> (\d+)/m;
@@ -20,8 +19,8 @@ $bit =~ s/git-svn-id.+$//m;
     my $comment = join ' ',
         map { $_ =~ s/^    //; $_ } grep { $_ =~ /^    / } split "\n", $bit;
     $comment =~ s/ {2,}/ /g;
-$comment =~ s/Log://;
-$comment =~ s/^ +//;
+    $comment =~ s/Log://;
+    $comment =~ s/^ +//;
     my $files = join ' ', map { $_ =~ s/^ //; $_ =~ s/ \|.+$//ms; $_ }
         grep { $_ =~ /^ [a-zA-z.]/ } split "\n", $bit;
     $files =~ s/ {2,}/ /g;