From 3cb2667e755799e9a6449d0234dc7edb0e36bb74 Mon Sep 17 00:00:00 2001
From: David Spencer <baildon.research@googlemail.com>
Date: Sat, 16 Apr 2016 15:45:14 +0100
Subject: perl/perl-Net-Packet: Removed.

Fails tests on i486.
Obsolete and unsupported upstream.
The suggested replacement is Net::Frame.
---
 perl/perl-Net-Packet/README                     |  12 --
 perl/perl-Net-Packet/perl-Net-Packet.SlackBuild | 110 ----------------
 perl/perl-Net-Packet/perl-Net-Packet.info       |  10 --
 perl/perl-Net-Packet/pod.patch                  | 162 ------------------------
 perl/perl-Net-Packet/slack-desc                 |  19 ---
 5 files changed, 313 deletions(-)
 delete mode 100644 perl/perl-Net-Packet/README
 delete mode 100644 perl/perl-Net-Packet/perl-Net-Packet.SlackBuild
 delete mode 100644 perl/perl-Net-Packet/perl-Net-Packet.info
 delete mode 100644 perl/perl-Net-Packet/pod.patch
 delete mode 100644 perl/perl-Net-Packet/slack-desc

diff --git a/perl/perl-Net-Packet/README b/perl/perl-Net-Packet/README
deleted file mode 100644
index bc73c52dc8..0000000000
--- a/perl/perl-Net-Packet/README
+++ /dev/null
@@ -1,12 +0,0 @@
-Net::Packet - a framework to easily send and receive frames from layer 2 to
-layer 7
-
-This module is a unified framework to craft, send and receive packets at
-layers 2, 3, 4 and 7.
-Basically, you forge each layer of a frame (Net::Packet::IPv4 for layer 3,
-Net::Packet::TCP for layer 4; for example), and pack all of this into a
-Net::Packet::Frame object. Then, you can send the frame to the network, and
-receive its response easily, because the response is automatically searched
-for and matched against the request (not implemented for all layers).
-
-This is not the same module as perl-NetPacket!
diff --git a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild b/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild
deleted file mode 100644
index ebbb2f5009..0000000000
--- a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/bin/sh
-
-# Slackware build script for perl-Net-Packet
-
-# Copyright 2009-2010 Marco Bonetti <sid77@slackware.it>
-# 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-Net-Packet
-VERSION=${VERSION:-3.27}
-BUILD=${BUILD:-2}
-TAG=${TAG:-_SBo}
-
-SRC_PRGNAM=Net-Packet
-DOCS="LICENSE LICENSE.Artistic README"
-
-if [ -z "$ARCH" ]; then
-  case "$( uname -m )" in
-    i?86) ARCH=i486 ;;
-    arm*) ARCH=arm ;;
-       *) ARCH=$( uname -m ) ;;
-  esac
-fi
-
-CWD=$(pwd)
-TMP=${TMP:-/tmp/SBo}
-PKG=$TMP/package-$PRGNAM
-OUTPUT=${OUTPUT:-/tmp}
-
-if [ "$ARCH" = "i486" ]; then
-  SLKCFLAGS="-O2 -march=i486 -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 $SRC_PRGNAM-$VERSION
-tar xvf $CWD/$SRC_PRGNAM-$VERSION.tar.gz
-cd $SRC_PRGNAM-$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 {} \;
-
-patch -p1 < $CWD/pod.patch
-PERL_MM_USE_DEFAULT=1 perl Makefile.PL \
-  PREFIX=/usr \
-  INSTALLDIRS=vendor \
-  INSTALLVENDORMAN3DIR=/usr/man/man3
-make
-make test
-make install DESTDIR=$PKG
-
-# Compress man pages
-( cd $PKG/usr/man
-  find . -type f -exec gzip -9 {} \;
-  for i in $( find . -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done
-)
-
-# Remove perllocal.pod and other special files that don't need to be installed
-( cd $PKG
-  # Remove 'special' files
-  find . -name perllocal.pod \
-    -o -name ".packlist" \
-    -o -name "*.bs" \
-    | xargs rm -f
-)
-
-# Remove empty directories
-find $PKG -depth -type d -empty -delete
-
-mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION
-cp -a $DOCS $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-Net-Packet/perl-Net-Packet.info b/perl/perl-Net-Packet/perl-Net-Packet.info
deleted file mode 100644
index 5b74ad3932..0000000000
--- a/perl/perl-Net-Packet/perl-Net-Packet.info
+++ /dev/null
@@ -1,10 +0,0 @@
-PRGNAM="perl-Net-Packet"
-VERSION="3.27"
-HOMEPAGE="https://metacpan.org/pod/Net::Packet"
-DOWNLOAD="http://www.cpan.org/authors/id/G/GO/GOMOR/Net-Packet-3.27.tar.gz"
-MD5SUM="1f1d0b19b043d47dd30d21d5cf02e1e7"
-DOWNLOAD_x86_64=""
-MD5SUM_x86_64=""
-REQUIRES="perl-Bit-Vector perl-Net-IPv4Addr perl-Net-IPv6Addr perl-Net-Libdnet perl-Net-Write"
-MAINTAINER="Marco Bonetti"
-EMAIL="sid77@slackware.it"
diff --git a/perl/perl-Net-Packet/pod.patch b/perl/perl-Net-Packet/pod.patch
deleted file mode 100644
index a897c22f8f..0000000000
--- a/perl/perl-Net-Packet/pod.patch
+++ /dev/null
@@ -1,162 +0,0 @@
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm Net-Packet-3.27/lib/Net/Packet/ARP.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/ARP.pm	2013-11-07 22:29:47.938688696 +0700
-@@ -152,7 +152,7 @@
-    use Net::Packet::Consts qw(:arp);
-    require Net::Packet::ARP;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::ARP->new(
-       dstIp => "192.168.0.1",
-    );
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm Net-Packet-3.27/lib/Net/Packet/Consts.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/Consts.pm	2013-11-07 22:31:46.338040470 +0700
-@@ -482,10 +482,10 @@
-    # Load IPv4 layer constants
-    use Net::Packet::Consts qw(:ipv4);
- 
--   # Load Ethernet layer constants
-+   # Load Ethernet layer constants
-    use Net::Packet::Consts qw(:eth);
- 
--   # Load Ethernet, IPv6 and TCP layers constants
-+   # Load Ethernet, IPv6 and TCP layers constants
-    use Net::Packet::Consts qw(:eth :ipv6 :tcp);
- 
- =head1 DESCRIPTION
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm Net-Packet-3.27/lib/Net/Packet/ETH.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/ETH.pm	2013-11-07 22:27:54.205272530 +0700
-@@ -137,7 +137,7 @@
-    use Net::Packet::Consts qw(:eth);
-    require Net::Packet::ETH;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::ETH->new(
-       type => NP_ETH_TYPE_IPv6,
-       dst  => "00:11:22:33:44:55",
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm Net-Packet-3.27/lib/Net/Packet/Frame.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/Frame.pm	2013-11-07 22:31:54.161931581 +0700
-@@ -615,8 +615,8 @@
-    # will be created automatically, by default. See Net::Packet::Env 
-    # regarding changing this behaviour. Same for Net::Packet::Dump.
-    my $frame = Net::Packet::Frame->new(
--      l3 => $ipv4,  # Net::Packet::IPv4 object
--      l4 => $tcp,   # Net::Packet::TCP object
-+      l3 => $ipv4,  # Net::Packet::IPv4 object
-+      l4 => $tcp,   # Net::Packet::TCP object
-                     # (here, a SYN request, for example)
-    );
- 
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm Net-Packet-3.27/lib/Net/Packet/IPv4.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/IPv4.pm	2013-11-07 22:27:07.653921003 +0700
-@@ -284,7 +284,7 @@
-    use Net::Packet::Consts qw(:ipv4);
-    require Net::Packet::IPv4;
- 
--   # Build a layer
-+   # Build a layer
-    my $ip = Net::Packet::IPv4->new(
-       flags => NP_IPv4_DONT_FRAGMENT,
-       dst   => "192.168.0.1",
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm Net-Packet-3.27/lib/Net/Packet/IPv6.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/IPv6.pm	2013-11-07 22:29:37.659831761 +0700
-@@ -149,7 +149,7 @@
-    use Net::Packet::Consts qw(:ipv6);
-    require Net::Packet::IPv6;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::IPv6->new(
-       dst => $hostname6,
-    );
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm Net-Packet-3.27/lib/Net/Packet/Layer7.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/Layer7.pm	2013-11-07 22:26:52.198136331 +0700
-@@ -73,7 +73,7 @@
- 
-    use Net::Packet::Layer7;
- 
--   # Build layer to inject to network
-+   # Build layer to inject to network
-    my $l7a = Net::Packet::Layer7->new(data => "GET / HTTP/1.0\r\n\r\n");
- 
-    # Decode from network to create the object
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm Net-Packet-3.27/lib/Net/Packet/NULL.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/NULL.pm	2013-11-07 22:27:21.244731668 +0700
-@@ -88,7 +88,7 @@
-    use Net::Packet::Consts qw(:null);
-    require Net::Packet::NULL;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::NULL->new;
-    $layer->pack;
- 
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm Net-Packet-3.27/lib/Net/Packet/RAW.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/RAW.pm	2013-11-07 22:28:29.971774372 +0700
-@@ -59,7 +59,7 @@
-    # No constants for RAW
-    require Net::Packet::RAW;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::RAW->new;
-    $layer->pack;
- 
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm Net-Packet-3.27/lib/Net/Packet/SLL.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/SLL.pm	2013-11-07 22:28:18.515933924 +0700
-@@ -116,7 +116,7 @@
-    use Net::Packet::Consts qw(:sll);
-    require Net::Packet::SLL;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::SLL->new;
-    $layer->pack;
- 
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm Net-Packet-3.27/lib/Net/Packet/TCP.pm
---- Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm	2009-11-10 00:58:28.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet/TCP.pm	2013-11-07 22:32:06.696757148 +0700
-@@ -306,10 +306,10 @@
-    use Net::Packet::Consts qw(:tcp);
-    require Net::Packet::TCP;
- 
--   # Build a layer
-+   # Build a layer
-    my $layer = Net::Packet::TCP->new(
-       dst     => 22,
--      options => "\x02\x04\x05\xb4", # MSS=1460
-+      options => "\x02\x04\x05\xb4", # MSS=1460
-    );
-    $layer->pack;
- 
-diff -Nur Net-Packet-3.27.orig/lib/Net/Packet.pm Net-Packet-3.27/lib/Net/Packet.pm
---- Net-Packet-3.27.orig/lib/Net/Packet.pm	2009-11-10 01:21:00.000000000 +0700
-+++ Net-Packet-3.27/lib/Net/Packet.pm	2013-11-07 22:34:00.512173471 +0700
-@@ -69,13 +69,13 @@
-    # WARNING: this is not the prefered way to use Net::Packet
-    use Net::Packet;
- 
--   # Build IPv4 header
-+   # Build IPv4 header
-    my $ip = Net::Packet::IPv4->new(dst => '192.168.0.1');
- 
--   # Build TCP header
-+   # Build TCP header
-    my $tcp = Net::Packet::TCP->new(dst => 22);
- 
--   # Assamble frame, it will also open a Net::Packet::DescL3 descriptor
-+   # Assamble frame, it will also open a Net::Packet::DescL3 descriptor
-    # and a Net::Packet::Dump object
-    my $frame = Net::Packet::Frame->new(l3 => $ip, l4 => $tcp);
- 
diff --git a/perl/perl-Net-Packet/slack-desc b/perl/perl-Net-Packet/slack-desc
deleted file mode 100644
index 5853fe9bca..0000000000
--- a/perl/perl-Net-Packet/slack-desc
+++ /dev/null
@@ -1,19 +0,0 @@
-# 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-Net-Packet: perl-Net-Packet (a network framework)
-perl-Net-Packet:
-perl-Net-Packet: This module is a unified framework to craft, send and receive packets
-perl-Net-Packet: at layers 2, 3, 4 and 7.
-perl-Net-Packet:
-perl-Net-Packet:
-perl-Net-Packet:
-perl-Net-Packet:
-perl-Net-Packet:
-perl-Net-Packet:
-perl-Net-Packet:
-- 
cgit v1.2.3