source: for-distributions/trunk/bin/windows/perl/lib/auto/POSIX/creat.al@ 14489

Last change on this file since 14489 was 14489, checked in by oranfry, 17 years ago

upgrading to perl 5.8
File size: 374 bytes
Line 
1# NOTE: Derived from ..\..\lib\POSIX.pm.
2# Changes made here will be lost when autosplit is run again.
3# See AutoSplit.pm.
4package POSIX;
5
6#line 125 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)"
7sub 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
131;
Note: See TracBrowser for help on using the repository browser.