You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
1.8 KiB
81 lines
1.8 KiB
#!/bin/sh
|
|
#
|
|
# Generate perl module package dependencies
|
|
#
|
|
# Copyright (C) 2007 Peter Colberg <peter@petercolberg.org>
|
|
# Licensed under the terms of the GNU General Public License.
|
|
#
|
|
|
|
if [ $# -lt 3 ]; then
|
|
echo >&2 "Usage: $(basename $0) STAGING-DIR PERL-BUILD-DIR [FILES...] [DIRECTORIES...]"
|
|
exit 1
|
|
fi
|
|
|
|
STAGING_DIR="$1"
|
|
PERL_BIN="$STAGING_DIR/usr/bin/perl"
|
|
PERL_LIB="$STAGING_DIR/usr/lib/perl5/5.10"
|
|
INC_DIR="$(dirname $0)"
|
|
shift
|
|
|
|
"$PERL_BIN" -I"$INC_DIR" -I"$PERL_LIB" - "$@" <<'PERL_SCRIPT'
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Module::ScanDeps;
|
|
use File::Find;
|
|
use Cwd;
|
|
|
|
our $sitelib = "/usr/lib/perl5/5.10";
|
|
|
|
sub scandeps {
|
|
my $builddir = Cwd::abs_path(shift);
|
|
my @scanpaths = @_;
|
|
my ($curdir, @pkgdirs, $dir, @deps, %depends, $file);
|
|
our ($pkg, %bundles, $path, @files);
|
|
|
|
@pkgdirs = glob($builddir . "/*/ipkg");
|
|
$curdir = getcwd();
|
|
@INC = ();
|
|
for $dir (@pkgdirs) {
|
|
chdir($dir) or die "$dir: $!";
|
|
for $pkg (glob("*")) {
|
|
chdir($dir . "/" . $pkg . $sitelib) or next;
|
|
push @INC, getcwd();
|
|
sub wanted {
|
|
return unless (-f $_);
|
|
s/^\.\///;
|
|
$bundles{$_} = $pkg;
|
|
}
|
|
find({ wanted => \&wanted, no_chdir => 1 }, ".");
|
|
}
|
|
}
|
|
chdir($curdir) or die "$curdir: $!\n";
|
|
|
|
for $path (@scanpaths) {
|
|
sub scan_wanted {
|
|
return unless (-f $_ and /\.(pl|pm)$/);
|
|
push @files, $_;
|
|
}
|
|
if (-f $path) {
|
|
push @files, $path;
|
|
}
|
|
elsif (-d $path) {
|
|
find({ wanted => \&scan_wanted, no_chdir => 1 }, $path);
|
|
}
|
|
}
|
|
|
|
@deps = keys %{scan_deps(files => \@files, recurse => 0)};
|
|
for $file (grep { not exists $bundles{$_} } @deps) {
|
|
warn "could not resolve dependency: $file\n";
|
|
}
|
|
%depends = map { $bundles{$_}, 1 } grep { exists $bundles{$_} } @deps;
|
|
|
|
if (%depends) {
|
|
print join(' ', 'perl', sort keys %depends), "\n";
|
|
}
|
|
}
|
|
|
|
if (@ARGV > 1) {
|
|
scandeps(@ARGV);
|
|
}
|
|
PERL_SCRIPT
|