11# !/usr/bin/perl
2+ use strict;
3+ use Module::Signature;
24
3- $VERSION = ' 0.06' ;
5+ # PODNAME: cpansign
6+ my $VERSION = ' 0.07' ;
47
58=encoding utf8
69
@@ -10,30 +13,27 @@ cpansign - CPAN signature management utility
1013
1114=head1 SYNOPSIS
1215
13- % cpansign # verify an existing SIGNATURE, or
14- # make a new one if none exists
16+ % cpansign # verify an existing SIGNATURE, or
17+ # make a new one if none exists
1518
16- % cpansign file.par # verify or sign a PAR file
19+ % cpansign file.par # verify or sign a PAR file
1720
18- % cpansign sign # make signature; overwrites existing one
19- % cpansign -s # same thing
21+ % cpansign sign # make signature; overwrites existing one
22+ % cpansign -s # same thing
2023
21- % cpansign verify # verify a signature
22- % cpansign -v # same thing
24+ % cpansign verify # verify a signature
25+ % cpansign -v # same thing
2326 % cpansign -v --skip # ignore files in MANIFEST.SKIP
2427
25- % cpansign help # display this documentation
26- % cpansign -h # same thing
28+ % cpansign help # display this documentation
29+ % cpansign -h # same thing
2730
2831=head1 DESCRIPTION
2932
30- This utility lets you create and verify SIGNATURE files.
33+ This utility lets you create and verify SIGNATURE files.
3134
3235=cut
3336
34- use strict;
35- use Module::Signature;
36-
3737$Module::Signature::Verbose = 1;
3838
3939my %cmd = (
@@ -52,27 +52,27 @@ if (!$op or $op eq 'skip' or -e $op) {
5252my $cmd = $cmd {substr ($op , 0, 1)};
5353(system (" perldoc $0 " ), exit ) if $cmd eq ' help' ;
5454my @args ;
55- push @args , (overwrite => ' 1' ) if $cmd eq ' sign' ;
56- push @args , (skip => ' 1' ) if grep /^-?-?skip/, @ARGV ;
55+ push @args , (overwrite => ' 1' ) if $cmd eq ' sign' ;
56+ push @args , (skip => ' 1' ) if grep /^-?-?skip/, @ARGV ;
5757
5858if (my $sub = Module::Signature-> can($cmd )) {
5959 if (@ARGV and -e $ARGV [-1]) {
60- require PAR::Dist;
61- PAR::Dist::_verify_or_sign(
62- dist => $ARGV [-1],
63- $dwim ? () : (action => $cmd , @args )
64- );
60+ require PAR::Dist;
61+ PAR::Dist::_verify_or_sign(
62+ dist => $ARGV [-1],
63+ $dwim ? () : (action => $cmd , @args )
64+ );
6565 }
6666 else {
67- # if ($cmd eq 'sign') {
68- # exit unless Module::Signature::verify();
69- # }
70- exit ($sub -> (@args ));
67+ # if ($cmd eq 'sign') {
68+ # exit unless Module::Signature::verify();
69+ # }
70+ exit ($sub -> (@args ));
7171 }
7272}
7373else {
7474 die " Unknown command: '$op '.\n " .
75- " Available actions: " . (join (' , ' , sort values %cmd )) . " .\n " ;
75+ " Available actions: " . (join (' , ' , sort values %cmd )) . " .\n " ;
7676}
7777
7878exit ;
0 commit comments