Show
Ignore:
Timestamp:
12/31/07 17:13:40 (7 years ago)
Author:
yappo
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm

    r3882 r3883  
    2323    *{"$pkg\::commit"} = sub { 
    2424        use strict; 
    25         my $self = shift; 
     25        my $c = shift; 
    2626        my $msg  = shift; 
    27 warn "AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
    28 AAAAAAAAAAAAAAAAAA 
    29 $msg 
    30 SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
    31 SSSSSSSSSSSSSSSSSSSSS"; 
    32         $msg = sprintf $self->{format}, $msg; 
    33         $commit->($self, $msg, @_); 
     27        $msg = sprintf $c->{format}, $msg; 
     28        $commit->($c, $msg, @_); 
    3429    }; 
    3530    *{"$pkg\::tag_version"} = sub { 
    3631        use strict; 
    37         my $self = shift; 
     32        my $c = shift; 
    3833        my $ver  = shift; 
    3934        my $msg  = shift; 
    40         $msg = sprintf $self->{format}, $msg; 
    41         $commit->($self, $ver, $msg, @_); 
     35        $msg = sprintf $c->{format}, $msg; 
     36        $commit->($c, $ver, $msg, @_); 
    4237    }; 
    4338    use strict;