# Copyright (C) 2016-2018 Guido Flohr <guido.flohr@cantanea.com>, # all rights reserved. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. # Install the JavaScript dependencies. This is in a separate script # in order to avoid hitting the maximum size of the command line. use strict; use Data::Dumper; use ExtUtils::Install; use File::Find; use File::Spec; die "This script is only intended to be run by the Makefile" if @ARGV != 3 || $ARGV[2] != 2304; my ($dest_dir, $dir_perm) = @ARGV; my %from_to; find sub { $from_to{$File::Find::name} = File::Spec->catfile('blib', $File::Find::name) if !-d; }, 'lib/Qgoda/node_modules'; pm_to_blib \%from_to, $dest_dir, [], $dir_perm;