fixed for newer perl
[tridge/junkcode.git] / mode.c
1 #include <stdio.h>
2 #include <sys/types.h>
3 #include <sys/stat.h>
4
5 struct stat buf;
6
7 int mode(file)
8 char *file;
9 {
10 buf.st_mode = 0;
11 stat(file,&buf);
12 return(buf.st_mode);
13 }
14
15 main(argc,argv)
16 int argc;
17 char *argv[];
18 {
19 if (argc>1) printf("%o\n",mode(argv[1]));
20 return(0);
21 }
22