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