Merging upstream version 1.44.3.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 27 insertions, 0 deletions

diff --git a/web/server/h2o/libh2o/misc/install-perl-module.pl b/web/server/h2o/libh2o/misc/install-perl-module.pl
new file mode 100755
index 000000000..0e0f9f4a6
--- /dev/null
+++ b/web/server/h2o/libh2o/misc/install-perl-module.pl
@@ -0,0 +1,27 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+sub run_cmd {
+    my $cmd = shift;
+    print "$cmd\n";
+    system($cmd) == 0
+        or die "aborting..., command failed with $?";
+}
+
+sub install_module {
+    my $module = shift;
+    print "checking if $module is installed...\n";
+    if (system("perl -M$module -e '' > /dev/null 2>&1") != 0) {
+        run_cmd("cpanm --sudo --notest $module");
+    }
+}
+
+print "checking if cpanm is installed...\n";
+if (system("which cpanm > /dev/null 2>&1") != 0) {
+    run_cmd("curl -L http://cpanmin.us | perl - --sudo --notest App::cpanminus");
+}
+
+install_module($_)
+    for @ARGV;