/usr/lib/perl5/Unix/Mknod.pm is in libunix-mknod-perl 0.04-1build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | package Unix::Mknod;
use 5.006;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use Unix::Mknod qw(:all);
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
mknod major minor makedev
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} });
our @EXPORT = qw(
);
our $VERSION = '0.04';
require XSLoader;
XSLoader::load('Unix::Mknod', $VERSION);
1;
__END__
=head1 NAME
Unix::Mknod - Perl extension for mknod, major, minor, and makedev
=head1 SYNOPSIS
use Unix::Mknod qw(:all);
use File::stat;
use Fcntl qw(:mode);
$st=stat('/dev/null');
$major=major($st->rdev);
$minor=minor($st->rdev);
mknod('/tmp/special', S_IFCHR|0600, makedev($major,$minor+1));
=head1 DESCRIPTION
This module allows access to the device routines major()/minor()/makedev()
that may or may not be macros in .h files.
It also allows access to the C<mknod(2)> system call.
=head1 FUNCTIONS
=over 4
=item I<mknod($filename, $mode, $rdev)>
Creates a block or character device special file named I<$filename>.
Must be run as a privileged user, usually I<root>. Returns 0 on success
and -1 on failure, like C<POSIX::mkfifo> does.
=item I<$major = major($rdev)>
Returns the major number for the device special file as defined by the
st_rdev field from the C<stat(3)> call.
=item I<$minor = minor($rdev)>
Returns the minor number for the device special file as defined by the
st_rdev field from the C<stat(3)> call.
=item I<$rdev = makedev($major, $minor)>
Returns the st_rdev number for the device special file from the I<$major>
and I<$minor> numbers.
=back
=head1 NOTES
There are 2 other perl modules that implement the C<mknod(2)> system call,
but they have problems working on some platforms. C<Sys::Mknod> does not
work on AIX because it uses the C<syscall(2)> generic system call which
AIX does not have. C<Mknod> implements S_IFIFO, which on most platforms
is not implemented in C<mknod(1)>, but rather C<mkfifo(1)> (which is
implemented in POSIX perl module).
The perl module C<File::Stat::Bits> also implements major() and minor() (and
a version of makedev() called dev_join). They are done as a program to
get the bit masks at compile time, but if major() and minor() are
implemented as sub routines, the arugment could be something as simple
as an index to a lookup table (and thereby having no decernable relation
to its result).
=head1 BUGS
Running C<make test> as non root will not truly test the functions, as in
most UNIX like OSes, C<mknod(2)> needs to be invoked by a privelaged user,
usually I<root>.
=head1 SEE ALSO
C<$ERRNO> or C<$!> for the specific error message.
L<File::Stat::Bits>, L<Mknod>, L<POSIX>, L<Sys::Mknod>
C<major(9)>, C<minor(9)>, C<mkfifo(1)>, C<mknod(8)>
ftp://ftp-dev.cites.uiuc.edu/pub/Unix-Mknod
=head1 AUTHOR
Jim Pirzyk, E<lt>pirzyk@uiuc.eduE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2008 University of Illinois Board of Trustees
All rights reserved.
Developed by: Campus Information Technologies and Educational Services,
University of Illinois at Urbana-Champaign
Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
``Software''), to deal with the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject to
the following conditions:
* Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimers.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimers in the
documentation and/or other materials provided with the distribution.
* Neither the names of Campus Information Technologies and Educational
Services, University of Illinois at Urbana-Champaign, nor the names
of its contributors may be used to endorse or promote products derived
from this Software without specific prior written permission.
THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
IN NO EVENT SHALL THE CONTRIBUTORS OR COPYRIGHT HOLDERS BE LIABLE FOR
ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE
OR THE USE OR OTHER DEALINGS WITH THE SOFTWARE.
=cut
|