/usr/lib/x86_64-linux-gnu/perl5/5.22/Crypt/DH/GMP/Compat.pm is in libcrypt-dh-gmp-perl 0.00012-1build2.
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 | # $Id: /mirror/coderepos/lang/perl/Crypt-DH-GMP/trunk/lib/Crypt/DH/GMP/Compat.pm 50370 2008-04-15T05:54:58.881985Z daisuke $
package Crypt::DH::GMP::Compat;
package # hide from PAUSE
Crypt::DH;
use strict;
use warnings;
no warnings 'redefine';
use vars qw(@ISA);
# Add Crypt::DH::GMP as Crypt::DH's parent, and redefine all methods
BEGIN
{
unshift @ISA, 'Crypt::DH::GMP';
*Crypt::DH::new = sub { shift->SUPER::new(@_) };
*Crypt::DH::g = sub {
my $self = shift;
if (@_) {
$_[0] = ref $_[0] ? $_[0]->bstr : $_[0];
}
return Math::BigInt->new( $self->SUPER::g(@_) );
};
*Crypt::DH::p = sub {
my $self = shift;
if (@_) {
$_[0] = ref $_[0] ? $_[0]->bstr : $_[0];
}
return Math::BigInt->new($self->SUPER::p(@_))
};
*Crypt::DH::pub_key = sub { Math::BigInt->new(shift->SUPER::pub_key(@_)) };
*Crypt::DH::priv_key = sub { Math::BigInt->new(shift->SUPER::priv_key(@_)) };
*Crypt::DH::generate_keys = \&Crypt::DH::GMP::generate_keys;
*Crypt::DH::compute_key = \&Crypt::DH::GMP::compute_key;
*Crypt::DH::compute_secret = \&Crypt::DH::compute_key;
}
1;
__END__
=head1 NAME
Crypt::DH::GMP::Compat - Compatibility Mode For Crypt::DH
=head1 SYNOPSIS
use Crypt::DH;
use Crypt::DH::GMP qw(-compat);
=head1 DESCRIPTION
Crypt::DH::GMP::Compat is a very invasive module that rewrites Crypt::DH's
@ISA and method names so that it uses Crypt::DH::GMP
=cut
|