git.samba.org
/
abartlet
/
samba.git
/
.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
libndr: add LIBNDR_FLAG_RELATIVE_REVERSE flag.
[abartlet/samba.git/.git]
/
source3
/
script
/
strip_trail_ws.pl
1
#!/usr/bin/perl -w
2
3
open( INFILE, "$ARGV[0]" ) || die $@;
4
open( OUTFILE, ">$ARGV[0].new" ) || die $@;
5
6
while ( <INFILE> ) {
7
$_ =~ s/[ \t\r]*$//;
8
print OUTFILE "$_";
9
}
10
11
close( INFILE );
12
close( OUTFILE );
13
14
rename( "$ARGV[0].new", "$ARGV[0]" ) || die @_;
15
16
exit( 0 );
17
18