extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / stat.pl
CommitLineData
79072805 1;# $RCSfile: stat.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:13 $
378cc40b 2
3;# Usage:
e929a76b 4;# require 'stat.pl';
378cc40b 5;# @ary = stat(foo);
6;# $st_dev = @ary[$ST_DEV];
7;#
8$ST_DEV = 0 + $[;
9$ST_INO = 1 + $[;
10$ST_MODE = 2 + $[;
11$ST_NLINK = 3 + $[;
12$ST_UID = 4 + $[;
13$ST_GID = 5 + $[;
14$ST_RDEV = 6 + $[;
15$ST_SIZE = 7 + $[;
16$ST_ATIME = 8 + $[;
17$ST_MTIME = 9 + $[;
18$ST_CTIME = 10 + $[;
19$ST_BLKSIZE = 11 + $[;
20$ST_BLOCKS = 12 + $[;
21
22;# Usage:
e929a76b 23;# require 'stat.pl';
378cc40b 24;# do Stat('foo'); # sets st_* as a side effect
25;#
26sub Stat {
27 ($st_dev,$st_ino,$st_mode,$st_nlink,$st_uid,$st_gid,$st_rdev,$st_size,
28 $st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks) = stat(shift(@_));
29}
a687059c 30
311;