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