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

(-)a/koha-qa.pl (-2 / +7 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl -w
1
#!/usr/bin/perl -w
2
our ($v, $d, $c, $nocolor, $help, $no_progress);
2
our ($v, $d, $c, $nocolor, $help, $no_progress, $no_spelling);
3
BEGIN {
3
BEGIN {
4
    use Getopt::Long;
4
    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
$c = 1 unless $c;
50
$c = 1 unless $c;
47
my $num_of_commits = $c;
51
my $num_of_commits = $c;
Lines 74-79 eval { Link Here
74
        $modified_files->filter( { name => [ qw< opac.less > ] } ),
78
        $modified_files->filter( { name => [ qw< opac.less > ] } ),
75
    );
79
    );
80
    use Data::Dumper;
81
    print STDERR Dumper(\@files);
76
    my $i = 1;
82
    my $i = 1;
77
    say "Processing files before patches";
83
    say "Processing files before patches";
78
-

Return to bug 16003