mirror of
https://git.hardenedbsd.org/hardenedbsd/HardenedBSD.git
synced 2024-12-28 22:36:24 +01:00
13 lines
307 B
Perl
13 lines
307 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# makes perl scripts smaller, useful for boot floppies
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
s/(\s|^|;)#.*//; # comments
|
||
|
|
s/\s+$//; # leading spaces
|
||
|
|
s/^\s+//; # ending spaces
|
||
|
|
s/\s+/ /g; # double spaces
|
||
|
|
s/\s*([=\(\{\)\}])\s*/$1/g; # spaces around =(){}
|
||
|
|
print "$_\n" if $_;
|
||
|
|
}
|