Commit | Line | Data |
85e6fe83 |
1 | # NOTE: Derived from POSIX.pm. Changes made here will be lost. |
2 | package POSIX; |
3 | |
4 | sub putc { |
5 | unimpl "putc() is C-specific--use print instead", caller; |
6 | unimpl "putc(xxx)", caller if @_ != 123; |
7 | putc($_[0]); |
8 | } |
9 | |
10 | 1; |