Mknod - Perl extension for the mknod(2) call

Mknod documentation Contained in the Mknod distribution.

Index

Code Index:

NAME

Top

Mknod - Perl extension for the mknod(2) call

SYNOPSIS

Top

  use Mknod;
  # create a pipe 
  mknod('hole', S_IFIFO|0644);
  # or a device
  mknod('ttyS0', S_IFCHR|0644, 4|64);

DESCRIPTION

Top

  It seemed to me this system call wasnt available to perl yet.
  If I was just looking in the wrong place, please let me know:)

  Returns 1 on ok and 0 on failure.

EXPORT

  mknod()
  S_IFREG
  S_IFIFO
  S_IFBLK
  S_IFCHR

This behaviour can be prevented: use Mknod (); Mknod::mknod(...)

SEE ALSO

Top

  mknod(1)
  mknod(2)

AUTHOR

Top

Raoul Zwart, <rlzwart@cpan.org<gt>

COPYRIGHT AND LICENSE

Top

Copyright 2003 by Raoul Zwart

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Mknod documentation Contained in the Mknod distribution. 
package Mknod;

use strict;
use warnings;

use Carp;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(
	mknod
    S_IFREG
    S_IFIFO
    S_IFBLK
    S_IFCHR
);

our $VERSION = '0.02';

require XSLoader;
XSLoader::load('Mknod', $VERSION);

# Preloaded methods go here.

sub mknod {
    if (defined $_[2]) {
        goto &mknod3;
    }
    if (defined $_[1]) {
        goto &mknod2;
    }
    else {
        print Carp::shortmess("Usage: mknod(file, mode [,dev])");
        return 0;
    }
}

1;
__END__