#!/bin/bash
# --- ROCK-COPYRIGHT-NOTE-BEGIN ---
# 
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
# Please add additional copyright information _after_ the line containing
# the ROCK-COPYRIGHT-NOTE-END tag. Otherwise it might get removed by
# the ./scripts/Create-CopyPatch script. Do not edit this copyright text!
# 
# ROCK Linux: rock-src/package/base/perl5/perl5.conf
# ROCK Linux is Copyright (C) 1998 - 2006 Clifford Wolf
# 
# 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 2 of the License, or
# (at your option) any later version. A copy of the GNU General Public
# License can be found at Documentation/COPYING.
# 
# Many people helped and are helping developing ROCK Linux. Please
# have a look at http://www.rocklinux.org/ and the Documentation/TEAM
# file for details.
# 
# --- ROCK-COPYRIGHT-NOTE-END ---

runconfig=0

confopt="-des -Dprefix=/usr -Dinstallprefix=$root/usr -Darchname=$arch_target \
	-Dmyhostname=$ROCKCFG_PKG_PERL5_HOST_NAME \
	-Dsiteprefix=/$ROCKCFG_PKG_PERL5_SITE_PREFIX \
	-Dvendorprefix=/$ROCKCFG_PKG_PERL5_VENDOR_PREFIX"
[ "$ROCKCFG_PKG_PERL5_SUIDPERL" != "0" ] && confopt="$confopt -Dd_dosuid"
[ "$ROCKCFG_PKG_PERL5_THREADS" = "1" ] && confopt="$confopt -Dusethreads"
[ "$ROCKCFG_PKG_PERL5_USE_DB3" = "1" ] && patchfiles="$patchfiles $confdir/use_db3.diff"

if [ "$stagelevel" -le 2 ] ; then
	custmain=pkg_perl_custmain
else
	hook_add preconf 2  "( rm -f config.sh Policy.sh; sh Configure \$confopt; )"
	hook_add postmake 4 "pkg_perl_postmake"
fi

pkg_perl_custmain () {
	if [ "$ROCKCFG_CROSSBUILD" = 1 ] ; then
		sed -i -e 's/miniperl/miniperl-cross/g' \
			ext/util/make_ext x2p/Makefile.SH utils/Makefile
	fi

	rm -f config.sh Policy.sh
	eval sh Configure $confopt -Dstatic_ext='Data/Dumper IO Fcntl POSIX'

	if [ "$ROCKCFG_CROSSBUILD" = 1 ] ; then
		make miniperl
		mv miniperl miniperl-cross

		make clean

		sed -i -e "s@\(^ar=\).*@\1'${AR}'@g" \
		-e "s@\(^ranlib=\).*@\1'${RANLIB}'@g" \
		-e "s@\(^cc=\).*@\1'${CC}'@g" \
		-e "s@\(^ld=\).*@\1'${CC}'@g" config.sh
		make miniperl

		sed -i -e 's|(LDLIBPTH) ./miniperl|(LDLIBPTH) ./miniperl-cross|g' Makefile
	fi

	make perl utilities

	cp perl pod/pod2man $root/usr/bin
	install -d $root/usr/lib/perl5/$ver
	cp -R lib/* $root/usr/lib/perl5/$ver
}

pkg_perl_postmake() {
	h2ph $( grep ' usr/include/.*\.h$' \
		$root/var/adm/flists/glibc* | sed "s,^.*: ,$root/," )

	cat > $root/usr/bin/cpan <<- EOT
		#!/usr/bin/perl
		use POSIX;
		use locale;
		use CPAN;

		setlocale(LANGUAGE, "en_US");
		setlocale(LC_ALL, "en_US");
		shell;
	EOT
        chmod +x $root/usr/bin/cpan

	mkdir -p $root/usr/lib/perl5/$ver/${archprefix%-}
	touch $root/usr/lib/perl5/$ver/${archprefix%-}/perllocal.pod
}