#!/usr/bin/perl -w
use strict;
use Mac::Errors;

=encoding utf8

=head1 NAME

macerror

=head1 SYNOPSIS

% macerror -23

=head1 DESCRIPTION

The macerror script translates Mac error numbers into their
symbolic name and description.

=head1 SEE ALSO

L<Mac::Errors>

=head1 AUTHOR

Chris Nandor, pudge@pobox.com

=head1 COPYRIGHT

Copryright 2002, Chris Nandor, All rights reserved

You may use this under the same terms as Perl itself.

=cut

my $error = shift @ARGV;
my $err = $Mac::Errors::MacErrors{ $error } or die "Unknown error ($error)";
printf <<'EOT', $err->number, $err->symbol, $err->description;
Mac OS error %d (%s): %s
EOT