mirror of
https://github.com/samba-team/samba.git
synced 2025-02-05 21:57:51 +03:00
20 lines
276 B
Perl
Executable File
20 lines
276 B
Perl
Executable File
#!/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);
|
|
|
|
|