mirror of
https://github.com/samba-team/samba.git
synced 2025-01-17 02:05:21 +03:00
20 lines
276 B
Perl
20 lines
276 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
open(INFILE, "$ARGV[0]") || die $@;
|
||
|
|
open(OUTFILE, ">$ARGV[0].new") || die $@;
|
||
|
|
|
||
|
|
while (<INFILE>) {
|
||
|
|
$_ =~ s/True/true/;
|
||
|
|
$_ =~ s/False/false/;
|
||
|
|
print OUTFILE "$_";
|
||
|
|
}
|
||
|
|
|
||
|
|
close(INFILE);
|
||
|
|
close(OUTFILE);
|
||
|
|
|
||
|
|
rename("$ARGV[0].new", "$ARGV[0]") || die @_;
|
||
|
|
|
||
|
|
exit(0);
|
||
|
|
|
||
|
|
|