/usr/lib/perl5/Authen/SASL/Cyrus.pm is in libauthen-sasl-cyrus-perl 0.13-server-8build2.
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 | package Authen::SASL::Cyrus;
require DynaLoader;
require Authen::SASL::Cyrus::Security;
require Exporter;
@ISA = qw(DynaLoader);# Exporter);
# Modified for Debian from 0.13-server to avoid Perl 5.12 problems with
# non-numeric versions.
$VERSION = "0.13.1";
bootstrap Authen::SASL::Cyrus $VERSION;
#
# Take a client filehandle and tie it to the Security subclass to
# perform SASL encryption and decryption on the network traffic
#
sub tiesocket {
my($sasl, $fh) = @_;
new Authen::SASL::Cyrus::Security($fh, $sasl);
}
# Create a new client filehandle and tie it to the Security subclass to
# perform SASL encryption and decryption on the network traffic
sub securesocket {
my ($sasl, $fh) = @_;
my $glob = \do { local *GLOB; };
tie(*$glob, "Authen::SASL::Cyrus::Security", $fh, $sasl);
$glob;
}
1;
|