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, 10 insertions, 0 deletions

diff --git a/lib/auto/POSIX/putc.al b/lib/auto/POSIX/putc.al
new file mode 100644
index 0000000000..59eaca87a3
--- /dev/null
+++ b/lib/auto/POSIX/putc.al
@@ -0,0 +1,10 @@
+# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
+package POSIX;
+
+sub putc {
+    unimpl "putc() is C-specific--use print instead", caller;
+    unimpl "putc(xxx)", caller if @_ != 123;
+    putc($_[0]);
+}
+
+1;