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

(-)a/koha-qa.pl (-3 / +5 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl -w
1
#!/usr/bin/perl -w
2
2
3
our ($v, $d, $c, $nocolor, $help, $no_progress);
3
our ($v, $d, $c, $nocolor, $help, $no_progress, $no_spelling);
4
4
5
BEGIN {
5
BEGIN {
6
    use Getopt::Long;
6
    use Getopt::Long;
Lines 11-16 BEGIN { Link Here
11
        'v:s' => \$v,
11
        'v:s' => \$v,
12
        'c:s' => \$c,
12
        'c:s' => \$c,
13
        'd' => \$d,
13
        'd' => \$d,
14
        's|spelling' => \$no_spelling,
14
        'no-progress' => \$no_progress,
15
        'no-progress' => \$no_progress,
15
        'nocolor' => \$nocolor,
16
        'nocolor' => \$nocolor,
16
        'h|help' => \$help,
17
        'h|help' => \$help,
Lines 43-48 unless ( -f '/usr/bin/codespell' ) { Link Here
43
    warn "You should install codespell\n";
44
    warn "You should install codespell\n";
44
    push @tests_to_skip, 'spelling';
45
    push @tests_to_skip, 'spelling';
45
}
46
}
47
elsif ($no_spelling) {
48
    push @tests_to_skip, 'spelling';
49
}
46
50
47
$c = 1 unless $c;
51
$c = 1 unless $c;
48
my $num_of_commits = $c;
52
my $num_of_commits = $c;
Lines 74-80 eval { Link Here
74
        $modified_files->filter( { name => [ qw< opac.less > ] } ),
78
        $modified_files->filter( { name => [ qw< opac.less > ] } ),
75
    );
79
    );
76
80
77
78
    my $i = 1;
81
    my $i = 1;
79
    say "Processing files before patches";
82
    say "Processing files before patches";
80
    for my $f ( @files ) {
83
    for my $f ( @files ) {
81
- 

Return to bug 16003