diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 17:20:00 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 17:20:00 +0000 |
commit | 8daa83a594a2e98f39d764422bfbdbc62c9efd44 (patch) | |
tree | 4099e8021376c7d8c05bdf8503093d80e9c7bad0 /source3/script/strip_trail_ws.pl | |
parent | Initial commit. (diff) | |
download | samba-8daa83a594a2e98f39d764422bfbdbc62c9efd44.tar.xz samba-8daa83a594a2e98f39d764422bfbdbc62c9efd44.zip |
Adding upstream version 2:4.20.0+dfsg.upstream/2%4.20.0+dfsg
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'source3/script/strip_trail_ws.pl')
-rwxr-xr-x | source3/script/strip_trail_ws.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/source3/script/strip_trail_ws.pl b/source3/script/strip_trail_ws.pl new file mode 100755 index 0000000..c2c39e2 --- /dev/null +++ b/source3/script/strip_trail_ws.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl -w + +open( INFILE, "$ARGV[0]" ) || die $@; +open( OUTFILE, ">$ARGV[0].new" ) || die $@; + +while ( <INFILE> ) { + $_ =~ s/[ \t\r]*$//; + print OUTFILE "$_"; +} + +close( INFILE ); +close( OUTFILE ); + +rename( "$ARGV[0].new", "$ARGV[0]" ) || die @_; + +exit( 0 ); + + |