Permalink
Browse files

Moose-- # makes you forget to use strict

  • Loading branch information...
1 parent 6c0b3cd commit 118e8bbfb3f8633e32df5a64866341674131d81b @nothingmuch committed Jun 12, 2009
Showing with 9 additions and 8 deletions.
  1. +9 −8 git-svn-abandon-msg-filter
View
@@ -1,5 +1,8 @@
#!/usr/bin/perl
+use strict;
+use warnings;
+
my $svn_id;
my $msg = '';
@@ -18,14 +21,12 @@ if ( $msg =~ /^\s*r\d+\@.*\(orig r\d+\):/ ) {
my ( $to, @from ) = ( split /\s+/, `git show -s --pretty='format:%P' $ENV{GIT_COMMIT}` );
- print (
- "Merge ",
- join(", ", map { format_branch($_) } @from),
- " into ",
- format_branch($to),
- "\n\n",
- $msg,
- );
+ print "Merge ",
+ join(", ", map { format_branch($_) } @from),
+ " into ",
+ format_branch($to),
+ "\n\n",
+ $msg;
} else {
if ( $msg =~ s/^\s*r\d+\@.*:.*$//m ) {
$msg =~ s/^ //mg;

0 comments on commit 118e8bb

Please sign in to comment.