Author: arkurth
Date: Mon May 8 19:23:42 2017
New Revision: 1794443
URL: http://svn.apache.org/viewvc?rev=1794443&view=rev
Log:
VCL-1037
Commented out hard-coded URL to CPAN mirror in install_perl_libs.pl. The URL is
no longer available. If not specified, it automatically selects a mirror.
Modified:
vcl/trunk/managementnode/bin/install_perl_libs.pl
Modified: vcl/trunk/managementnode/bin/install_perl_libs.pl
URL:
http://svn.apache.org/viewvc/vcl/trunk/managementnode/bin/install_perl_libs.pl?rev=1794443&r1=1794442&r2=1794443&view=diff
==============================================================================
--- vcl/trunk/managementnode/bin/install_perl_libs.pl (original)
+++ vcl/trunk/managementnode/bin/install_perl_libs.pl Mon May 8 19:23:42 2017
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
-##############################################################################
+###############################################################################
# $Id$
-##############################################################################
+###############################################################################
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
@@ -38,14 +38,13 @@ Run this script from the command line:
the dependencies. You must type YES in order for the script to proceed.
=cut
-
-##############################################################################
+###############################################################################
use strict;
use English;
use Getopt::Long;
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
my @LINUX_PACKAGES = (
'expat-devel',
@@ -160,7 +159,7 @@ else {
exit 1;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 install_epel
@@ -208,7 +207,7 @@ EOF
return $result;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 install_linux_packages
@@ -229,7 +228,7 @@ sub install_linux_packages {
return 1;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 yum_install_linux_package
@@ -279,7 +278,7 @@ sub yum_install_linux_package {
return 1;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 configure_cpan
@@ -362,7 +361,7 @@ sub configure_cpan {
"term_ornaments" => "1",
"trust_test_report_history" => "1",
"unzip" => `echo -n \`which unzip\`` || "",
- "urllist" => [q[http://www.perl.com/CPAN/]],
+ #"urllist" => [q[http://www.perl.com/CPAN/]],
"use_sqlite" => "0",
"wget" => `echo -n \`which wget\`` || "",
"yaml_load_code" => "0",
@@ -382,7 +381,7 @@ sub configure_cpan {
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 install_perl_modules
@@ -455,7 +454,7 @@ sub install_perl_modules {
return 1;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 get_perl_module_installed_version
@@ -505,7 +504,7 @@ sub get_perl_module_installed_version {
}
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 get_perl_module_cpan_version
@@ -537,7 +536,7 @@ sub get_perl_module_cpan_version {
}
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 run_command
@@ -557,7 +556,7 @@ sub run_command {
return ($exit_status, $output);
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 show_disclaimer
@@ -601,7 +600,7 @@ EOF
}
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 print_break
@@ -617,7 +616,7 @@ sub print_break {
print $character x 100 . "\n";
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
=head2 help
@@ -644,7 +643,7 @@ EOF
exit 0;
}
-#/////////////////////////////////////////////////////////////////////////////
+#//////////////////////////////////////////////////////////////////////////////
1;
__END__
