← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to source3/script/fix_bool.pl

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
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