perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/auto/POSIX/fileno.al b/lib/auto/POSIX/fileno.al
new file mode 100644
index 0000000000..62c7c0aff8
--- /dev/null
+++ b/lib/auto/POSIX/fileno.al
@@ -0,0 +1,9 @@
+# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
+package POSIX;
+
+sub fileno {
+    usage "fileno(filehandle)", caller if @_ != 1;
+    fileno($_[0]);
+}
+
+1;