From 860ba8a5b5e03da7f84956ffc9c1d611b3cd27c0 Mon Sep 17 00:00:00 2001 From: "Jan F. Chadima" Date: Wed, 21 Mar 2018 22:40:09 +0000 Subject: perl/perl-Scope-Upper: Added (Act on upper scopes). Signed-off-by: David Spencer --- perl/perl-Scope-Upper/README | 14 +++ perl/perl-Scope-Upper/perl-Scope-Upper.SlackBuild | 102 ++++++++++++++++++++++ perl/perl-Scope-Upper/perl-Scope-Upper.info | 10 +++ perl/perl-Scope-Upper/slack-desc | 19 ++++ 4 files changed, 145 insertions(+) create mode 100644 perl/perl-Scope-Upper/README create mode 100644 perl/perl-Scope-Upper/perl-Scope-Upper.SlackBuild create mode 100644 perl/perl-Scope-Upper/perl-Scope-Upper.info create mode 100644 perl/perl-Scope-Upper/slack-desc (limited to 'perl') diff --git a/perl/perl-Scope-Upper/README b/perl/perl-Scope-Upper/README new file mode 100644 index 0000000000..09981ca36d --- /dev/null +++ b/perl/perl-Scope-Upper/README @@ -0,0 +1,14 @@ +This module lets you defer actions at run-time that will take place +when the control flow returns into an upper scope. Currently, you can: + + - hook an upper scope end with "reap" ; + - localize variables, array/hash values or deletions of elements + in higher contexts with respectively "localize", "localize_elem" + and "localize_delete" ; + - return values immediately to an upper level with "unwind", "yield" + and "leave" ; + - gather information about an upper context with "want_at" + and "context_info" ; + - execute a subroutine in the setting of an upper subroutine stack + frame with "uplevel" ; + - uniquely identify contexts with "uid" and "validate_uid". diff --git a/perl/perl-Scope-Upper/perl-Scope-Upper.SlackBuild b/perl/perl-Scope-Upper/perl-Scope-Upper.SlackBuild new file mode 100644 index 0000000000..541640a923 --- /dev/null +++ b/perl/perl-Scope-Upper/perl-Scope-Upper.SlackBuild @@ -0,0 +1,102 @@ +#!/bin/sh + +# Slackware build script for perl-Scope-Upper + +# Copyright 2018 Jan F. Chadima +# All rights reserved. +# +# Redistribution and use of this script, with or without modification, is +# permitted provided that the following conditions are met: +# +# 1. Redistributions of this script must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO +# EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; +# OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR +# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF +# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +PRGNAM=perl-Scope-Upper +VERSION=${VERSION:-0.30} +BUILD=${BUILD:-1} +TAG=${TAG:-_SBo} + +SRCNAM="$(printf $PRGNAM | cut -d- -f2-)" + +if [ -z "$ARCH" ]; then + case "$( uname -m )" in + i?86) ARCH=i586 ;; + arm*) ARCH=arm ;; + *) ARCH=$( uname -m ) ;; + esac +fi + +CWD=$(pwd) +TMP=${TMP:-/tmp/SBo} +PKG=$TMP/package-$PRGNAM +OUTPUT=${OUTPUT:-/tmp} + +if [ "$ARCH" = "i586" ]; then + SLKCFLAGS="-O2 -march=i586 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "i686" ]; then + SLKCFLAGS="-O2 -march=i686 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "x86_64" ]; then + SLKCFLAGS="-O2 -fPIC" + LIBDIRSUFFIX="64" +else + SLKCFLAGS="-O2" + LIBDIRSUFFIX="" +fi + +set -e + +rm -rf $PKG +mkdir -p $TMP $PKG $OUTPUT +cd $TMP +rm -rf $SRCNAM-$VERSION +tar xvf $CWD/$SRCNAM-$VERSION.tar.gz +cd $SRCNAM-$VERSION +chown -R root:root . +find -L . \ + \( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 \ + -o -perm 511 \) -exec chmod 755 {} \; -o \ + \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \ + -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \; + +perl Makefile.PL \ + PREFIX=/usr \ + INSTALLDIRS=vendor \ + INSTALLVENDORMAN3DIR=/usr/man/man3 +make +make test +make install DESTDIR=$PKG + +find $PKG -print0 | xargs -0 file | grep -e "executable" -e "shared object" | grep ELF \ + | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null || true + +find $PKG/usr/man -type f -exec gzip -9 {} \; +for i in $( find $PKG/usr/man -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done + +find $PKG -name perllocal.pod -o -name ".packlist" -o -name "*.bs" | xargs rm -f || true + +find $PKG -depth -type d -empty -delete || true + +mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION +cp -a \ + Changes README \ + $PKG/usr/doc/$PRGNAM-$VERSION +cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild + +mkdir -p $PKG/install +cat $CWD/slack-desc > $PKG/install/slack-desc + +cd $PKG +/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz} diff --git a/perl/perl-Scope-Upper/perl-Scope-Upper.info b/perl/perl-Scope-Upper/perl-Scope-Upper.info new file mode 100644 index 0000000000..9245602a63 --- /dev/null +++ b/perl/perl-Scope-Upper/perl-Scope-Upper.info @@ -0,0 +1,10 @@ +PRGNAM="perl-Scope-Upper" +VERSION="0.30" +HOMEPAGE="https://metacpan.org/pod/Scope::Upper" +DOWNLOAD="https://cpan.metacpan.org/authors/id/V/VP/VPIT/Scope-Upper-0.30.tar.gz" +MD5SUM="205e93ba8a666a7f7d6fdf9c1b75551a" +DOWNLOAD_x86_64="" +MD5SUM_x86_64="" +REQUIRES="" +MAINTAINER="Jan F. Chadima" +EMAIL="jfch@jagda.eu" diff --git a/perl/perl-Scope-Upper/slack-desc b/perl/perl-Scope-Upper/slack-desc new file mode 100644 index 0000000000..67675f2e25 --- /dev/null +++ b/perl/perl-Scope-Upper/slack-desc @@ -0,0 +1,19 @@ +# HOW TO EDIT THIS FILE: +# The "handy ruler" below makes it easier to edit a package description. +# Line up the first '|' above the ':' following the base package name, and +# the '|' on the right side marks the last column you can put a character in. +# You must make exactly 11 lines for the formatting to be correct. It's also +# customary to leave one space after the ':' except on otherwise blank lines. + + |-----handy-ruler------------------------------------------------------| +perl-Scope-Upper: perl-Scope-Upper (Act on upper scopes) +perl-Scope-Upper: +perl-Scope-Upper: This module lets you defer actions at run-time that will take place +perl-Scope-Upper: when the control flow returns into an upper scope. +perl-Scope-Upper: +perl-Scope-Upper: Homepage: https://metacpan.org/pod/Scope::Upper +perl-Scope-Upper: +perl-Scope-Upper: +perl-Scope-Upper: +perl-Scope-Upper: +perl-Scope-Upper: -- cgit v1.2.3