leakfinder.pl

[perl5.git] / Porting / cherrymaint

diff --git a/Porting/cherrymaint b/Porting/cherrymaint
index 3a985b9..f4092a9 100644 (file)
--- a/Porting/cherrymaint
+++ b/Porting/cherrymaint
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use File::Basename;
 use Getopt::Long;
-use LWP::UserAgent;
+require LWP::UserAgent;
 
 my %votemap = (
   'unexamined' => 0,
@@ -30,6 +30,9 @@ $usage .= "\n" . << "HERE";
 
   COMMIT: a git revision ID (SHA1 or symbolic reference like HEAD)
 
+  You must first tunnel $addr to perl5.git.perl.org:3000? E.g.
+  \$ ssh -C -L${\ join q{:} => reverse split /:/, $addr}:3000 perl5.git.perl.org
+
 HERE
 
 die $usage if grep { /^(--help|-h)$/ } @ARGV;
@@ -38,7 +41,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"
 }
 
@@ -91,6 +94,10 @@ either on the command line with --address, or by doing
   \$ git config cherrymaint.address host:port
 
 HERE
+
+# Note that you can vote through your browser by pointing it at the the local
+# end of the tunnel.  For example, L<http://localhost:3000/> if you went with
+# the suggested default values
 }
 
 exit 0;