blob: 80a8e61454a1ae0722fd26e6d4d78d5f41e21a51 (
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 fscanf {
unimpl "fscanf() is C-specific--use <> and regular expressions instead", caller;
unimpl "fscanf(xxx)", caller if @_ != 123;
fscanf($_[0]);
}
1;
|