This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Porting/release_managers_guide.pod: correct path to perlivp
[perl5.git] / Porting / cherrymaint
index 3a985b9..c7fb109 100644 (file)
@@ -38,7 +38,7 @@ die $usage if grep { /^(--help|-h)$/ } @ARGV;
 my %opt = (address => \$addr);
 GetOptions( \%opt, 'address=s', keys %votemap ) or die $usage;
 
-if ( keys(%opt) > 1 ) {
+if ( keys(%opt) > 2 ) {
   die "Error: cherrymaint takes only one action argument\n\n$usage"
 }