summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPANPLUS/Module/Signature.pm66
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;