View | Details | Raw Unified | Return to bug 16003
Collapse All | Expand All

(-)a/QohA/File.pm (-2 / +8 lines)
Lines 75-81 sub check_forbidden_patterns { Link Here
75
sub check_spelling {
75
sub check_spelling {
76
    my ($self) = @_;
76
    my ($self) = @_;
77
77
78
    my $cmd = q{codespell -d } . $self->path;
78
    my $exception_file = dirname(abs_path($0)) . q{/QohA/spelling.exceptions};
79
    my $cmd;
80
    if (-e $exception_file) {
81
        $cmd = q{codespell -x } . $exception_file . q{ -d } . $self->path;
82
    }
83
    else {
84
        $cmd = q{codespell -d } . $self->path;
85
    }
79
    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = run( command => $cmd, verbose => 0 );
86
    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = run( command => $cmd, verbose => 0 );
80
87
81
    return 0 unless @$full_buf;
88
    return 0 unless @$full_buf;
82
- 

Return to bug 16003