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

(-)a/misc/devel/tidy.pl (-3 / +2 lines)
Lines 49-55 if (@files) { Link Here
49
    @files = map {
49
    @files = map {
50
        my $file     = $_;
50
        my $file     = $_;
51
        my $filetype = get_filetype($file);
51
        my $filetype = get_filetype($file);
52
        my $cmd      = sprintf q{git ls-files %s %s}, $file, build_git_exclude($filetype);
52
        my $cmd      = sprintf q{git ls-files %s | grep %s}, build_git_exclude($filetype), $file;
53
        my $output   = qx{$cmd};
53
        my $output   = qx{$cmd};
54
        chomp $output;
54
        chomp $output;
55
        $output ? $file : ();
55
        $output ? $file : ();
Lines 139-145 sub tidy { Link Here
139
139
140
sub build_git_exclude {
140
sub build_git_exclude {
141
    my ($filetype) = @_;
141
    my ($filetype) = @_;
142
    return join( " ", map( "--exclude='$_'", @{ $exceptions->{$filetype} } ) );
142
    return join( " ", map( "':(exclude)$_'", @{ $exceptions->{$filetype} } ) );
143
}
143
}
144
144
145
sub get_perl_files {
145
sub get_perl_files {
146
- 

Return to bug 39115