Changeset 3883 for lang/perl/ShipIt-Step-CommitMessageWrap

Timestamp:

12/31/07 17:13:40 (5 years ago)

Author:

yappo

Message:

lang/perl/ShipIt-Step-CommitMessageWrap?: fixed UUV warnings

Files:

• lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm (modified) (1 diff)

lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm

@@ -23 +23 @@
     *{"$pkg\::commit"} = sub {
         use strict;
-        my $self = shift;
+        my $c = shift;
         my $msg  = shift;
-warn "AAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAA
-$msg
-SSSSSSSSSSSSSSSSSSSSSSSSSSSS
-SSSSSSSSSSSSSSSSSSSSS";
-        $msg = sprintf $self->{format}, $msg;
-        $commit->($self, $msg, @_);
+        $msg = sprintf $c->{format}, $msg;
+        $commit->($c, $msg, @_);
     };
     *{"$pkg\::tag_version"} = sub {
         use strict;
-        my $self = shift;
+        my $c = shift;
         my $ver  = shift;
         my $msg  = shift;
-        $msg = sprintf $self->{format}, $msg;
-        $commit->($self, $ver, $msg, @_);
+        $msg = sprintf $c->{format}, $msg;
+        $commit->($c, $ver, $msg, @_);
     };
     use strict;