=================================================================== RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/sudo/Attic/mkdefaults,v retrieving revision 1.2 retrieving revision 1.3 diff -c -r1.2 -r1.3 *** src/usr.bin/sudo/Attic/mkdefaults 2004/09/28 15:10:51 1.2 --- src/usr.bin/sudo/Attic/mkdefaults 2004/11/29 17:40:17 1.3 *************** *** 109,116 **** # Print out def_tuple if (@tuple_values) { print HEADER "\nenum def_tupple {\n"; ! foreach (@tuple_values) { ! print HEADER "\t$_,\n"; } print HEADER "};\n"; } --- 109,117 ---- # Print out def_tuple if (@tuple_values) { print HEADER "\nenum def_tupple {\n"; ! for ($i = 0; $i <= $#tuple_values; $i++) { ! printf HEADER "\t%s%s\n", $tuple_values[$i], ! $i != $#tuple_values ? "," : ""; } print HEADER "};\n"; }