Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from ../../lib/POSIX.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package POSIX; | |
5 | ||
6 | #line 122 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/creat.al)" | |
7 | sub creat { | |
8 | usage "creat(filename, mode)" if @_ != 2; | |
9 | &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); | |
10 | } | |
11 | ||
12 | # end of POSIX::creat | |
13 | 1; |