mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 21:33:09 +00:00
97be837ff5
This performs *most* of the pcreectomy ofb418e36f22. It removes the tests and docs and all the large files, but it does *not* touch any of the files except for making Find_Package quiet (783a895b11) or remove the AUTHORS and similar files as they are very small. This seems much easier, cleaner, nicer and has 90% of the effect of the old - the size now is 2.7MB instead of 2.1MB, down from 10MB. Fixes #7599
35 lines
643 B
Perl
Executable file
Vendored
35 lines
643 B
Perl
Executable file
Vendored
#!/usr/bin/perl
|
|
|
|
# This is a script for removing trailing whitespace from lines in files that
|
|
# are listed on the command line.
|
|
|
|
# This subroutine does the work for one file.
|
|
|
|
sub detrail {
|
|
my($file) = $_[0];
|
|
my($changed) = 0;
|
|
open(IN, "$file") || die "Can't open $file for input";
|
|
@lines = <IN>;
|
|
close(IN);
|
|
foreach (@lines)
|
|
{
|
|
if (/\s+\n$/)
|
|
{
|
|
s/\s+\n$/\n/;
|
|
$changed = 1;
|
|
}
|
|
}
|
|
if ($changed)
|
|
{
|
|
open(OUT, ">$file") || die "Can't open $file for output";
|
|
print OUT @lines;
|
|
close(OUT);
|
|
}
|
|
}
|
|
|
|
# This is the main program
|
|
|
|
$, = ""; # Output field separator
|
|
for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); }
|
|
|
|
# End
|