diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm deleted file mode 100644 index 802d8cc2a60..00000000000 --- a/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm +++ /dev/null @@ -1,66 +0,0 @@ -package CPANPLUS::Module::Signature; -use deprecate; - -use strict; - -use Cwd; -use CPANPLUS::Error; -use Params::Check qw[check]; -use Module::Load::Conditional qw[can_load]; -use vars qw[$VERSION]; -$VERSION = "0.9135"; - -### detached sig, not actually used afaik --kane ### -#sub get_signature { -# my $self = shift; -# -# my $clone = $self->clone; -# $clone->package( $self->package . '.sig' ); -# -# return $clone->fetch; -#} - -sub check_signature { - my $self = shift; - my $cb = $self->parent; - my $conf = $cb->configure_object; - my %hash = @_; - - my $verbose; - my $tmpl = { - verbose => {default => $conf->get_conf('verbose'), store => \$verbose}, - }; - - check( $tmpl, \%hash ) or return; - - my $dir = $self->status->extract or ( - error( loc( "Do not know what dir '%1' was extracted to; ". - "Cannot check signature", $self->module ) ), - return ); - - my $cwd = cwd(); - unless( $cb->_chdir( dir => $dir ) ) { - error(loc( "Could not chdir to '%1', cannot verify distribution '%2'", - $dir, $self->module )); - return; - } - - - ### check prerequisites - my $flag; - my $use_list = { 'Module::Signature' => '0.06' }; - if( can_load( modules => $use_list, verbose => 1 ) ) { - my $rv = Module::Signature::verify(); - - unless ($rv eq Module::Signature::SIGNATURE_OK() or - $rv eq Module::Signature::SIGNATURE_MISSING() - ) { - $flag++; # whoops, bad sig - } - } - - $cb->_chdir( dir => $cwd ); - return $flag ? 0 : 1; -} - -1; |