1 # NOTE: Derived from ../../lib/POSIX.pm.
2 # Changes made here will be lost when autosplit again.
6 #line 128 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/creat.al)"
8 usage "creat(filename, mode)" if @_ != 2;
9 &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);