[p5sagit/p5-mst-13.2.git] / lib / auto / POSIX / ftell.al

# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
package POSIX;

sub ftell {
    unimpl "ftell() is C-specific--use tell instead", caller;
    unimpl "ftell(xxx)", caller if @_ != 123;
    ftell($_[0]);
}

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