From 879bbf01560e348d93c6903786fabae0607a59e6 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Fri, 21 Oct 2011 16:46:21 -0400
Subject: Create lib/ directory for meta generator and template scripts.

---
 bin/templ/perl-pkg | 120 -----------------------------------------------------
 1 file changed, 120 deletions(-)
 delete mode 100755 bin/templ/perl-pkg

(limited to 'bin/templ/perl-pkg')

diff --git a/bin/templ/perl-pkg b/bin/templ/perl-pkg
deleted file mode 100755
index e29ba05..0000000
--- a/bin/templ/perl-pkg
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/usr/bin/env perl
-
-use warnings 'FATAL' => 'all';
-use strict;
-
-my %ACTIONS_OF =
-	('MM', {
-		'build'	=> [ q{/usr/bin/perl Makefile.PL}, q{make} ],
-		'check'	=> [ q{make test} ],
-		'package'	=> [ q{make DESTDIR="$pkgdir" install} ]
-	 },
-	'MB', {
-		'build'	=> [ q{/usr/bin/perl Build.PL}, q{./Build} ],
-		'check'	=> [ q{./Build test} ],
-		'package'	=> [ q{./Build install} ]
-	});
-
-my %FUNCFMTS;
-$FUNCFMTS{'build'} = <<'END_FMT';
-build() {
-  ( export PERL_MM_USE_DEFAULT=1 PERL5LIB=""                 \
-      PERL_AUTOINSTALL=--skipdeps                            \
-      PERL_MM_OPT="INSTALLDIRS=vendor DESTDIR='$pkgdir'"     \
-      PERL_MB_OPT="--installdirs vendor --destdir '$pkgdir'" \
-      MODULEBUILDRC=/dev/null
-
-    cd "$_distdir"
-%s
-  )
-}
-END_FMT
-
-$FUNCFMTS{'check'} = <<'END_FMT';
-check() {
-  ( export PERL_MM_USE_DEFAULT=1 PERL5LIB=""
-    cd "$_distdir"
-%s
-  )
-}
-END_FMT
-
-$FUNCFMTS{'package'} = <<'END_FMT';
-package() {
-    cd "$_distdir"
-%s
-    find "$pkgdir" -name .packlist -o -name perllocal.pod -delete
-}
-END_FMT
-
-my $PBEND = <<'END_END';
-# Local Variables:
-# mode: shell-script
-# sh-basic-offset: 2
-# End:
-# vim:set ts=2 sw=2 et:
-END_END
-
-# Convert actions array into lines of bash to insert into template.
-sub bashify
-{
-    my (@lines) = @_;
-    my $txt = join qq{\n}, map { s/^/    /gm; $_ } @lines;
-    return $txt
-}
-
-sub mungevars
-{
-    my ($vars) = @_;
-    $vars->{'options'} = [ '!emptydirs' ];
-
-    # Replace version string in 'source' entry & 'distdir' with
-    # $pkgver parameter.
-    for my $v (qw/pkgver distdir/) {
-        die "$0: $v is undefined" unless defined $vars->{$v}[0];
-    }
-    my $ver = $vars->{'pkgver'}[0];
-    s/\Q$ver\E/\${pkgver}/g for ($vars->{'source'}[0], $vars->{'distdir'}[0]);
-
-    return;
-}
-
-sub printpb
-{
-    my ($btype, $pbvars) = @_;
-    my $acts = $ACTIONS_OF{$btype}
-        or die "$0: unknown build type ($btype)\n";
-
-    my $distdir = $pbvars->{'distdir'}[0];
-    print qq{_distdir="\${srcdir}/$distdir"\n};
-    print "\n";
-
-    for my $func (qw/build check package/) {
-        my $funclines = $acts->{$func};
-        printf $FUNCFMTS{$func}, bashify(@$funclines);
-        print "\n";
-    }
-    print $PBEND;
-}
-
-sub readvars
-{
-    local $/ = ""; # split records on empty lines
-    my (%pbvars);
-    while (<STDIN>) {
-        my ($name, @vals) = split /\n/;
-        $pbvars{$name} = [ @vals ];
-    }
-    return \%pbvars;
-}
-
-sub main
-{
-    my ($type) = @_;
-    my $vars = readvars();
-    mungevars($vars);
-    printpb($type, $vars);
-}
-
-my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n};
-main($type);
-- 
cgit v1.2.3-24-g4f1b