/usr/share/perl5/Net/OpenSSH/Constants.pm is in libnet-openssh-perl 0.73-1.
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 | package Net::OpenSSH::Constants;
our $VERSION = '0.51_07';
use strict;
use warnings;
use Carp;
use Scalar::Util ();
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = (error => [], _state => []);
my %error = ( OSSH_MASTER_FAILED => 1,
OSSH_SLAVE_FAILED => 2,
OSSH_SLAVE_PIPE_FAILED => 3,
OSSH_SLAVE_TIMEOUT => 4,
OSSH_SLAVE_CMD_FAILED => 5,
OSSH_SLAVE_SFTP_FAILED => 6,
OSSH_ENCODING_ERROR => 7
);
for my $key (keys %error) {
no strict 'refs';
my $value = $error{$key};
*{$key} = sub () { $value };
push @{$EXPORT_TAGS{error}}, $key
}
my @states = qw(_STATE_START
_STATE_LOGIN
_STATE_AWAITING_MUX
_STATE_RUNNING
_STATE_KILLING
_STATE_GONE
_STATE_STOPPED);
my $last_value;
for my $state (@states) {
no strict 'refs';
my $value = Scalar::Util::dualvar(++$last_value, $state);
*{$state} = sub () { $value };
push @{$EXPORT_TAGS{_state}}, $state
}
our @EXPORT_OK = map { @{$EXPORT_TAGS{$_}} } keys %EXPORT_TAGS;
$EXPORT_TAGS{all} = [@EXPORT_OK];
1;
__END__
=head1 NAME
Net::OpenSSH::Constants - Constant definitions for Net::OpenSSH
=head1 SYNOPSIS
use Net::OpenSSH::Constants qw(:error);
=head1 DESCRIPTION
This module exports the following constants:
=over 4
=item :error
OSSH_MASTER_FAILED - some error related to the master SSH connection happened
OSSH_SLAVE_FAILED - some error related to a slave SSH connection happened
OSSH_SLAVE_PIPE_FAILED - unable to create pipe to communicate with slave process
OSSH_SLAVE_TIMEOUT - slave process timeout
OSSH_SLAVE_CMD_FAILED - child process exited with a non zero status
OSSH_SLAVE_SFTP_FAILED - creation of SFTP client failed
OSSH_ENCODING_ERROR - some error related to the encoding/decoding of strings happened
=back
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008, 2009 by Salvador FandiE<ntilde>o (sfandino@yahoo.com)
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.
=cut
|