|
Errno - System errno constants
use Errno qw(EINTR EIO :POSIX);
Errno defines and conditionally exports all the error constants
defined in your system errno.h include file. It has a single export
tag, :POSIX, which will export all POSIX defined error numbers.
Errno also makes %! magic such that each element of %! has a
non-zero value only if $! is set to that value. For example:
use Errno;
unless (open(FH, "/fangorn/spouse")) {
if ($!{ENOENT}) {
warn "Get a wife!\n";
} else {
warn "This path is barred: $!";
}
}
If a specified constant EFOO does not exist on the system, $!{EFOO}
returns "". You may use exists $!{EFOO} to check whether the
constant is available on the system.
Importing a particular constant may not be very portable, because the
import will fail on platforms that do not have that constant. A more
portable way to set $! to a valid value is to use:
if (exists &Errno::EFOO) {
$! = &Errno::EFOO;
}
Graham Barr <gbarr@pobox.com>
Copyright (c) 1997-8 Graham Barr. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
|
