diff options
| author | Gerald (Jerry) Carter <jerry@samba.org> | 2008-01-15 07:59:23 -0600 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2008-01-15 07:59:23 -0600 |
| commit | 7ff128ef03ed03e6b9ce17642cda793255f17c0e (patch) | |
| tree | a6b2202fffd22ebb24546998f4c3c0efd7fecac1 /source3/script/fix_bool.pl | |
| parent | f0edf72d87ca300058c3ae7f464f26b9a2cce651 (diff) | |
| parent | ab10557a68aae9d8065966129dee751e69880ad1 (diff) | |
| download | samba-7ff128ef03ed03e6b9ce17642cda793255f17c0e.tar.gz samba-7ff128ef03ed03e6b9ce17642cda793255f17c0e.tar.bz2 samba-7ff128ef03ed03e6b9ce17642cda793255f17c0e.zip | |
Merge commit 'samba/v3-2-test' into v3-2-stable
(This used to be commit 061c90fefef0e6093dfc3912d381cc306549ed4b)
Diffstat (limited to 'source3/script/fix_bool.pl')
| -rwxr-xr-x | source3/script/fix_bool.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/source3/script/fix_bool.pl b/source3/script/fix_bool.pl new file mode 100755 index 0000000000..c09645de7c --- /dev/null +++ b/source3/script/fix_bool.pl @@ -0,0 +1,19 @@ +#!/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); + + |