perl: Remove unused helper scripts

They're broken anyway

Signed-off-by: Marcel Denia <naoir@gmx.net>

lang/perl/files/perlmod-deps.sh

@@ -1,81 +0,0 @@
-#!/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

lang/perl/files/scan-perlbase.sh

@@ -1,176 +0,0 @@
-#!/bin/sh
-#
-# Generate perl base modules package definitions
-#
-# Copyright (C) 2007  Peter Colberg <peter@petercolberg.org>
-# Licensed under the terms of the GNU General Public License.
-#
-
-if [ $# -lt 1 ]; then
-    echo >&2 "Usage: $(basename $0) STAGING-DIR [OUTFILE]"
-    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_LIB" "$@" <<'PERL_SCRIPT'
-use strict;
-use warnings;
-
-use Module::ScanDeps;
-use File::Find;
-use File::Basename;
-
-our $skipfiles = 'CORE vmsish.pm auto/sdbm';
-
-our %defmodules = (
-    'essential' => 'lib.pm vars.pm strict.pm warnings.pm warnings Carp Carp.pm Exporter Exporter.pm locale.pm subs.pm overload.pm constant.pm',
-    'getoptpl' => 'getopt.pl getopts.pl',
-    'utf8' => 'utf8_heavy.pl',
-    'Getopt' => 'newgetopt.pl',
-    'open' => 'open2.pl open3.pl',
-    'Config' => 'Config_heavy.pl',
-    'bytes' => 'bytes_heavy.pl',
-);
-
-our %defdepends = (
-    'DB_File' => 'libdb1-compat',
-    'GDBM_File' => 'libgdbm',
-);
-
-our $prefix = 'perlbase-';
-
-sub template ($) {
-    $_ = $_[0];
-    return <<TEMPLATE;
-define Package/$$_{package}
-SECTION:=lang
-CATEGORY:=Languages
-URL:=http://www.cpan.org/
-TITLE:=$$_{module} perl module
-DEPENDS:=$$_{depends}
-endef
-
-define Package/$$_{package}/install
-\$(call perlmod/Install,\$(1),$$_{files},$$_{exclude})
-endef
-
-\$(eval \$(call BuildPackage,$$_{package}))
-
-
-TEMPLATE
-}
-
-
-sub scandeps ($) {
-    my $sitedir = shift;
-    my @result;
-
-    my ($mod, $file, @deps, $dep, %depends, $parent, $pkg);
-    our (%files, %modules);
-    my (%packages, %excludes);
-
-    for $mod (keys %defmodules) {
-	($pkg = $prefix . $mod) =~ tr/A-Z_/a-z-/;
-	$modules{$pkg} = $mod;
-	for $file (split / /, $defmodules{$mod}) {
-	    $files{$file} = $pkg;
-	}
-    }
-    for $file ('pod', 'Pod', split(/ /, $skipfiles)) {
-	$files{$file} = undef;
-    }
-
-    sub wanted {
-	s/^\.\///;
-	return if (/^(\.|auto)$/ or exists $files{$_});
-	if (/\.pod$/) {
-	    $files{$_} = undef;
-	}
-	elsif (exists $files{dirname($_)}) {
-	    $files{$_} = $files{dirname($_)};
-	}
-	elsif (m!^(?:auto/)?([^./]+)(?:\.(?:pl|pm)|/|$)!) {
-	    (my $pkg = $prefix . $1) =~ tr/A-Z_/a-z-/;
-	    $modules{$pkg} = $1;
-	    $files{$_} = $pkg;
-	}
-	else {
-	    $files{$_} = undef;
-	}
-    }
-    chdir($sitedir);
-    find({ wanted => \&wanted, no_chdir => 1}, '.');
-
-    for $pkg (keys %modules) {
-	$packages{$pkg} = [];
-	$excludes{$pkg} = [];
-	$depends{$pkg} = {};
-    }
-
-    for $file (keys %files) {
-	$mod = $files{$file};
-	$parent = $files{dirname($file)};
-
-	if (defined ($mod)) {
-	    if (defined ($parent) and not ($parent eq $mod)) {
-		push @{$packages{$mod}}, $file;
-		push @{$excludes{$parent}}, $file;
-	    }
-	    elsif (not defined ($parent)) {
-		push @{$packages{$mod}}, $file;
-	    }
-	}
-	elsif (defined ($parent)) {
-	    push @{$excludes{$parent}}, $file;
-	}
-    }
-
-    for $mod (keys %defdepends) {
-	($pkg = $prefix . $mod) =~ tr/A-Z_/a-z-/;
-	for $dep (split / /, $defdepends{$mod}) {
-	    ${$depends{$pkg}}{$dep} = 1;
-	}
-    }
-
-    @INC = ('.');
-    for $file (grep { -f $_ and defined $files{$_} } keys %files) {
-	@deps = keys %{scan_deps(files => [ $file ], recurse => 0)};
-	$pkg = $files{$file};
-
-	for $dep (grep { not defined $files{$_} } @deps) {
-	    warn "$file: could not resolve dependency: $dep\n";
-	}
-	for $dep (grep { defined $files{$_} } @deps) {
-	    next if ($files{$dep} eq $pkg);
-	    ${$depends{$pkg}}{$files{$dep}} = 1;
-	}
-    }
-
-    for $pkg (sort keys %packages) {
-	push @result, template({
-	    package => $pkg,
-	    module => $modules{$pkg},
-	    depends => join(' ', 'perl', sort keys %{$depends{$pkg}}),
-	    files => join(' ', sort @{$packages{$pkg}}),
-	    exclude => join(' ', sort @{$excludes{$pkg}}),
-	});
-    }
-
-    return join('', @result);
-}
-
-
-if (@ARGV > 1) {
-    open FILE, ">$ARGV[1]" or die "$ARGV[1]: $!\n";
-    print FILE scandeps($ARGV[0]);
-    close FILE;
-}
-else {
-    print scandeps($ARGV[0] or '.');
-}
-PERL_SCRIPT

lang/perl/files/strippm.sh

@@ -1,11 +0,0 @@
-#!/bin/sh
-#
-# Attempt to strip comments and pod docs from perl modules
-#
-
-[ "$#" -gt 0 ] || set .
-echo "---> Stripping modules in: $@" >&2
-find "$@" -name \*.pm -or -name \*.pl -or -name \*.pod | while read fn; do
-	echo "   $fn" >&2
-	sed -i -e '/^=\(head\|pod\|item\|over\|back\)/,/^=cut/d; /^=\(head\|pod\|item\|over\|back\)/,$d; /^#$/d; /^#[^!"'"'"']/d' "$fn"
-done