lzxpress: add bounds checking to lzxpress_decompress()
[samba.git] / source3 / script / fix_bool.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/True/true/;
8         $_ =~ s/False/false/;
9         print OUTFILE "$_";
10 }
11
12 close(INFILE);
13 close(OUTFILE);
14
15 rename("$ARGV[0].new", "$ARGV[0]") || die @_;
16
17 exit(0);
18
19