diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-20 16:41:30 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-20 16:41:30 +0000 |
| commit | 82300f89acda50a186fa56a9e737cb3edf9a1030 (patch) | |
| tree | 2969fc7cec3c3e29decda940147f5d15a557d572 /challenge-001 | |
| parent | 1aa8ecccec917bbdee515fef036e8f84c47dae22 (diff) | |
| download | perlweeklychallenge-club-82300f89acda50a186fa56a9e737cb3edf9a1030.tar.gz perlweeklychallenge-club-82300f89acda50a186fa56a9e737cb3edf9a1030.tar.bz2 perlweeklychallenge-club-82300f89acda50a186fa56a9e737cb3edf9a1030.zip | |
Add Perl and Python solutions to challenge 144
Diffstat (limited to 'challenge-001')
| -rw-r--r-- | challenge-001/paulo-custodio/untabify.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-001/paulo-custodio/untabify.pl b/challenge-001/paulo-custodio/untabify.pl index dfdd1f1143..b52da1ff08 100644 --- a/challenge-001/paulo-custodio/untabify.pl +++ b/challenge-001/paulo-custodio/untabify.pl @@ -10,7 +10,7 @@ for my $dir (<challenge-*/paulo-custodio>) { my $iter = path($dir)->iterator({recurse=>1}); while (defined(my $path = $iter->())) { next unless $path->is_file; - next unless -T $path; + next unless -T $path; next if $path =~ /~$/; # temp files my $ext = ""; $path->basename =~ /(\.\w+)$/ and $ext = $1; next if $ext eq "" || $ext =~ /\.(exe|o|obj|ali|ads)$/; # binaries |