| .. | |||||
| bin | |||||
| include | |||||
| lib | |||||
| share | |||||
| CHANGELOG.md | |||||
| LICENSE | |||||
| README.md | |||||
| remove_pwsh.pl |
use strict;
use warnings;
my @files = split (/\n/, `find . -type f -print`);
foreach my $file (@files) {
my $first_line = `head -n 1 $file`;
if ($first_line =~ m/env\s+pwsh/) {
print "Removing file $file\n";
unlink $file;
}
}
| .. | |||||
| bin | |||||
| include | |||||
| lib | |||||
| share | |||||
| CHANGELOG.md | |||||
| LICENSE | |||||
| README.md | |||||
| remove_pwsh.pl |