minor fixes

This commit is contained in:
Ward Wouts 2004-01-25 13:53:32 +00:00
parent d0676d1896
commit 25608cc2b6

View file

@ -185,11 +185,13 @@ sub inperms($) {
print "$mode:$user:$group:$fullname\n"; print "$mode:$user:$group:$fullname\n";
unless ( -f $permsfile ) { unless ( -f $permsfile ) {
print <<EOT; open FH, ">$permsfile";
print FH <<EOT;
# \$Id\$ # \$Id\$
# \$Source\$ # \$Source\$
EOT EOT
close FH;
system("$cvscmd add $permsfile"); system("$cvscmd add $permsfile");
system("$cvscmd ci -m initial $permsfile"); system("$cvscmd ci -m initial $permsfile");
} }