From: Perl 5 Porters Date: Thu, 29 Aug 1996 02:55:08 +0000 (+0000) Subject: perl 5.003_04: ext/FileHandle/FileHandle.pm X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cbad286cff507c108237b7a2771cba5378c83fa;p=p5sagit%2Fp5-mst-13.2.git perl 5.003_04: ext/FileHandle/FileHandle.pm This patch documents the behavior of FileHandle::{new,open} with regard to open modes. It also documents the exportation of Fcntl constants. This patch fixes a bug observed by Tom Christiansen: FileHandle::new didn't allow for file permissions after the file mode. Here's a patch. --- diff --git a/ext/FileHandle/FileHandle.pm b/ext/FileHandle/FileHandle.pm index a6d1dda..03a698d 100644 --- a/ext/FileHandle/FileHandle.pm +++ b/ext/FileHandle/FileHandle.pm @@ -58,8 +58,17 @@ C accepts one parameter or two. With one parameter, it is just a front end for the built-in C function. With two parameters, the first parameter is a filename that may include whitespace or other special characters, and the second parameter is -the open mode in either Perl form (">", "+<", etc.) or POSIX form -("w", "r+", etc.). +the open mode, optionally followed by a file permission value. + +If C receives a Perl mode string (">", "+<", etc.) +or a POSIX fopen() mode string ("w", "r+", etc.), it uses the basic +Perl C operator. + +If C is given a numeric mode, it passes that mode +and the optional permissions value to the Perl C operator. +For convenience, C tries to import the O_XXX +constants from the Fcntl module. If dynamic loading is not available, +this may fail, but the rest of FileHandle will still work. C is like C except that its first parameter is not a filename but rather a file handle name, a FileHandle object, @@ -231,7 +240,8 @@ sub AUTOLOAD { ## sub new { - @_ >= 1 && @_ <= 3 or croak 'usage: new FileHandle [FILENAME [,MODE]]'; + @_ >= 1 && @_ <= 4 + or croak 'usage: new FileHandle [FILENAME [,MODE [,PERMS]]]'; my $class = shift; my $fh = gensym; if (@_) {