File Coverage

Mknod.xs
Criterion Covered Total %
statement 2 2 100.0
branch 1 2 50.0
condition n/a
subroutine n/a
pod n/a
total 3 4 75.0


line stmt bran cond sub pod time code
1             #ifdef __cplusplus
2             extern "C" {
3             #endif
4              
5             #include "EXTERN.h"
6             #include "perl.h"
7             #include "XSUB.h"
8             #include <unistd.h>
9              
10             #ifdef linux
11             #include <sys/sysmacros.h>
12             #else
13             #include <sys/types.h>
14             #endif
15              
16             #ifdef HAS_SYSMKDEV
17             #include <sys/mkdev.h>
18             #endif
19              
20             #ifdef __cplusplus
21             }
22             #endif
23              
24             MODULE = Unix::Mknod PACKAGE = Unix::Mknod
25              
26             dev_t
27             major(dev_t dev)
28             PROTOTYPE: $
29              
30             dev_t
31             minor(dev_t dev)
32             PROTOTYPE: $
33              
34             dev_t
35             makedev(dev_t major, dev_t minor)
36             PROTOTYPE: $;$
37              
38             int
39             mknod(filename, mode, dev)
40             char * filename
41             mode_t mode
42             dev_t dev
43             CODE:
44 2 50         TAINT_PROPER("mknod");
45 2           RETVAL = mknod(filename, mode, dev);
46             OUTPUT:
47             RETVAL