;# $Header: stat.pl,v 3.0.1.1 90/08/09 04:01:34 lwall Locked $

;# Usage:
;#	require 'stat.pl';
;#	@ary = stat(foo);
;#	$st_dev = @ary[$ST_DEV];
;#
$ST_TYPE =	0 + $[;
$ST_FTYPE =	1 + $[;
$ST_LOAD =	2 + $[;
$ST_EXEC =	3 + $[;
$ST_LENGTH =	4 + $[;
$ST_ATTR =	5 + $[;
$ST_TIME =	6 + $[;
$ST_UTIME =	7 + $[;

;# Usage:
;#	require 'stat.pl';
;#	do Stat('foo');		# sets st_* as a side effect
;#
sub Stat {
    ($st_type,$st_ftype,$st_load,$st_exec,$st_length,$st_attr,
	$st_time,$st_utime) = stat(shift(@_));
}

1;
