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