|
Lines 46-51
sub check_forbidden_patterns {
Link Here
|
| 46 |
# For the first pass, I don't want to launch any test. |
46 |
# For the first pass, I don't want to launch any test. |
| 47 |
return 1 if $self->pass == 0; |
47 |
return 1 if $self->pass == 0; |
| 48 |
|
48 |
|
|
|
49 |
# Patches may create and move files. |
| 50 |
return 1 unless (-e $self->path); |
| 51 |
|
| 49 |
my $git = QohA::Git->new(); |
52 |
my $git = QohA::Git->new(); |
| 50 |
my $diff_log = $git->diff_log($cnt, $self->path); |
53 |
my $diff_log = $git->diff_log($cnt, $self->path); |
| 51 |
my @forbidden_patterns = @$patterns; |
54 |
my @forbidden_patterns = @$patterns; |
| 52 |
- |
|
|