[perl #119323] [PATCH] Option to use HTTPS instead of GIT protocol

[Vladimir N. Indik]

# New Ticket Created by  "Vladimir N. Indik" 
# Please include the string:  [perl #119323]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=119323 >


Hi!

In my workplace I use http-proxy and can't use git native protocol for
sync with github.
Patch in attach adds an option for use HTTPS instead of git native protocol.

-- 
Vladimir N. Indik
1;
>From 1f8dc42ebd85547fe2e458a5c5e6f87fd95f1556 Mon Sep 17 00:00:00 2001
From: "Vladimir N. Indik" <vo...@vovka667.org>
Date: Fri, 16 Aug 2013 11:05:22 +0400
Subject: [PATCH] Added --git-https option to Configure.pl

---
 Configure.pl               |    3 ++-
 tools/lib/NQP/Configure.pm |    9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Configure.pl b/Configure.pl
index 6f6c42c..35dc5df 100644
--- a/Configure.pl
+++ b/Configure.pl
@@ -32,7 +32,7 @@ MAIN: {
                'with-nqp=s', 'gen-nqp:s',
                'with-parrot=s', 'gen-parrot:s', 'parrot-option=s@',
                'parrot-make-option=s@',
-               'make-install!', 'makefile-timing!',
+               'make-install!', 'makefile-timing!', 'git-https',
     ) or do {
         print_help();
         exit(1);
@@ -170,6 +170,7 @@ General Options:
                        Options to pass to Parrot's make, for example:
                        --parrot-make-option='--jobs=4'
     --makefile-timing  Enable timing of individual makefile commands
+    --git-https        Use HTTPS instead of GIT protocol
 
 Configure.pl also reads options from 'config.default' in the current directory.
 END
diff --git a/tools/lib/NQP/Configure.pm b/tools/lib/NQP/Configure.pm
index d316bd8..7b708c8 100644
--- a/tools/lib/NQP/Configure.pm
+++ b/tools/lib/NQP/Configure.pm
@@ -27,9 +27,6 @@ our @required_nqp_files = qw(
     @bindir@/nqp@exe@
 );
 
-our $nqp_git = 'git://github.com/perl6/nqp.git';
-our $par_git = 'git://github.com/parrot/parrot.git';
-
 sub sorry {
     my @msg = @_;
     die join("\n", '', '===SORRY!===', @msg, "\n");
@@ -248,6 +245,9 @@ sub gen_nqp {
     my $gen_parrot  = $options{'gen-parrot'};
     my $prefix      = $options{'prefix'} || cwd().'/install';
     my $startdir    = cwd();
+    my $nqp_git     = $options{'git-https'} ?
+        'https://github.com/perl6/nqp.git' :
+        'git://github.com/perl6/nqp.git';
 
     my $PARROT_REVISION = 'nqp/tools/build/PARROT_REVISION';
 
@@ -309,6 +309,9 @@ sub gen_parrot {
     my $gen_parrot = $options{'gen-parrot'};
     my @opts       = @{ $options{'parrot-option'} || ["--optimize"] };
     my $startdir   = cwd();
+    my $par_git    = $options{'git-https'} ?
+        'https://github.com/parrot/parrot.git' :
+        'git://github.com/parrot/parrot.git';
 
     my $par_exe  = "$options{'prefix'}/bin/parrot$exe";
     my %config   = read_parrot_config($par_exe);
-- 
1.7.9.5