OpenPKG Specs: perl-net/perl-net.patch@0bc1d0d1fe3a (annotated)

perl-net/perl-net.patch@0bc1d0d1fe3a (annotated)

perl-net/perl-net.patch

Fri, 30 Mar 2012 18:55:41 +0200

author: Michael Schloh von Bennewitz <michael@schloh.com>
date: Fri, 30 Mar 2012 18:55:41 +0200
changeset 416: 0bc1d0d1fe3a
parent 99: 161326b4f1f9
permissions: -rw-r--r--

Patch TLS domain logic to allow certless outgoing (UAC) connections.

 Index: Net-IRC-0.79/Makefile.PL
 --- Net-IRC-0.79/Makefile.PL.orig	2009-12-23 18:05:52.000000000 +0100
 +++ Net-IRC-0.79/Makefile.PL	2010-12-19 13:16:21.000000000 +0100
@@ -4,29 +4,6 @@
  # the contents of the Makefile that is written.
  exit 0 if $ENV{AUTOMATED_TESTING};
 -my $ok = 'I acknowledge that Net::IRC is unsupported and I wish to proceed.';
 -my $warning = <<WILLROBINSON;
 ---------------------------------------------------------------------------------
 -********************************************************************************
 -DANGER, WILL ROBINSON! DANGER!
 -
 -This module has been deprecated, abandoned, and is no longer supported. It has
 -not seen active development in five years, and its original author has moved on.
 -We *STRONGLY* recommend you port your code to either Bot::BasicBot or
 -POE::Component::IRC. Please feel free to stop by irc.freenode.net/#perl for help
 -making this transition. Or, if you insist on proceeding, please type the
 -following line exactly as is and then press Enter:
 -
 -$ok
 -********************************************************************************
 ---------------------------------------------------------------------------------
 -WILLROBINSON
 -
 --t STDIN or die $warning;
 -warn $warning;
 -chomp(my $acceptance = <STDIN>);
 -die "Refusing to install due to lack of confirmation" unless $acceptance eq $ok;
 -
  WriteMakefile(
  	      'NAME'  => 'Net::IRC',
 Index: Net-Packet-3.27/Makefile.PL
 --- Net-Packet-3.27/Makefile.PL.orig	2009-11-09 18:58:29.000000000 +0100
 +++ Net-Packet-3.27/Makefile.PL	2010-12-19 13:15:40.000000000 +0100
@@ -15,7 +15,6 @@
        Time::HiRes   => 0,
        Net::IPv6Addr => 0,
        Net::IPv4Addr => 0,
 -      Socket6       => 0,
        Bit::Vector   => 0,
     },
     ABSTRACT_FROM => 'lib/Net/Packet.pm',
 Index: Net-Patricia-1.15/libpatricia/patricia.c
 --- Net-Patricia-1.15/libpatricia/patricia.c.orig	2009-04-19 06:28:15.000000000 +0200
 +++ Net-Patricia-1.15/libpatricia/patricia.c	2010-12-19 13:15:40.000000000 +0100
@@ -38,24 +38,24 @@
  /* prefix_tochar
   * convert prefix information to bytes
   */
 -u_char *
 +unsigned char *
  prefix_tochar (prefix_t * prefix)
  {
      if (prefix == NULL)
  	return (NULL);
 -    return ((u_char *) & prefix->add.sin);
 +    return ((unsigned char *) & prefix->add.sin);
  }
  int
 -comp_with_mask (void *addr, void *dest, u_int mask)
 +comp_with_mask (void *addr, void *dest, unsigned int mask)
  {
      if ( /* mask/8 == 0 || */ memcmp (addr, dest, mask / 8) == 0) {
  	int n = mask / 8;
  	int m = ((-1) << (8 - (mask % 8)));
 -	if (mask % 8 == 0 || (((u_char *)addr)[n] & m) == (((u_char *)dest)[n] & m))
 +	if (mask % 8 == 0 || (((unsigned char *)addr)[n] & m) == (((unsigned char *)dest)[n] & m))
  	    return (1);
      }
      return (0);
@@ -70,7 +70,7 @@
  int
  inet_pton (int af, const char *src, void *dst)
  {
 -    u_long result;
 +    unsigned long result;
      if (af == AF_INET) {
  	result = inet_addr(src);
@@ -104,7 +104,7 @@
  {
      if (af == AF_INET) {
          int i, c, val;
 -        u_char xp[4] = {0, 0, 0, 0};
 +        unsigned char xp[4] = {0, 0, 0, 0};
          for (i = 0; ; i++) {
  	    c = *src++;
@@ -153,7 +153,7 @@
          struct buffer {
              char buffs[16][48+5];
 -            u_int i;
 +            unsigned int i;
          } *buffp;
  #    if 0
@@ -172,7 +172,7 @@
  	buff = buffp->buffs[buffp->i++%16];
      }
      if (prefix->family == AF_INET) {
 -	u_char *a;
 +	unsigned char *a;
  	assert (prefix->bitlen <= 32);
  	a = prefix_touchar (prefix);
  	if (with_len) {
@@ -272,7 +272,7 @@
  prefix_t *
  ascii2prefix (int family, char *string)
  {
 -    u_long bitlen, maxbitlen = 0;
 +    unsigned long bitlen, maxbitlen = 0;
      char *cp;
      struct in_addr sin;
  #ifdef HAVE_IPV6
@@ -491,8 +491,8 @@
  patricia_search_exact (patricia_tree_t *patricia, prefix_t *prefix)
  {
      patricia_node_t *node;
 -    u_char *addr;
 -    u_int bitlen;
 +    unsigned char *addr;
 +    unsigned int bitlen;
      assert (patricia);
      assert (prefix);
@@ -563,8 +563,8 @@
  {
      patricia_node_t *node;
      patricia_node_t *stack[PATRICIA_MAXBITS + 1];
 -    u_char *addr;
 -    u_int bitlen;
 +    unsigned char *addr;
 +    unsigned int bitlen;
      int cnt = 0;
      assert (patricia);
@@ -662,8 +662,8 @@
  patricia_lookup (patricia_tree_t *patricia, prefix_t *prefix)
  {
      patricia_node_t *node, *new_node, *parent, *glue;
 -    u_char *addr, *test_addr;
 -    u_int bitlen, check_bit, differ_bit;
 +    unsigned char *addr, *test_addr;
 +    unsigned int bitlen, check_bit, differ_bit;
      int i, j, r;
      assert (patricia);
 Index: Net-Patricia-1.15/libpatricia/patricia.h
 --- Net-Patricia-1.15/libpatricia/patricia.h.orig	2009-04-19 06:28:15.000000000 +0200
 +++ Net-Patricia-1.15/libpatricia/patricia.h	2010-12-19 13:15:40.000000000 +0100
@@ -15,10 +15,10 @@
  #ifndef _PATRICIA_H
  #define _PATRICIA_H
 -/* typedef unsigned int u_int; */
 +/* typedef unsigned int unsigned int; */
  typedef void (*void_fn_t)();
  /* { from defs.h */
 -#define prefix_touchar(prefix) ((u_char *)&(prefix)->add.sin)
 +#define prefix_touchar(prefix) ((unsigned char *)&(prefix)->add.sin)
  #define MAXLINE 1024
  #define BIT_TEST(f, b)  ((f) & (b))
  /* } */
@@ -40,15 +40,15 @@
  /* { from mrt.h */
  typedef struct _prefix4_t {
 -    u_short family;		/* AF_INET | AF_INET6 */
 -    u_short bitlen;		/* same as mask? */
 +    unsigned short family;		/* AF_INET | AF_INET6 */
 +    unsigned short bitlen;		/* same as mask? */
      int ref_count;		/* reference count */
      struct in_addr sin;
  } prefix4_t;
  typedef struct _prefix_t {
 -    u_short family;		/* AF_INET | AF_INET6 */
 -    u_short bitlen;		/* same as mask? */
 +    unsigned short family;		/* AF_INET | AF_INET6 */
 +    unsigned short bitlen;		/* same as mask? */
      int ref_count;		/* reference count */
      union {
  		struct in_addr sin;
@@ -61,7 +61,7 @@
  /* } */
  typedef struct _patricia_node_t {
 -   u_int bit;			/* flag if this node used */
 +   unsigned int bit;			/* flag if this node used */
     prefix_t *prefix;		/* who we are in patricia tree */
     struct _patricia_node_t *l, *r;	/* left and right children */
     struct _patricia_node_t *parent;/* may be used */
@@ -71,7 +71,7 @@
  typedef struct _patricia_tree_t {
     patricia_node_t 	*head;
 -   u_int		maxbits;	/* for IP, 32 bit addresses */
 +   unsigned int		maxbits;	/* for IP, 32 bit addresses */
     int num_active_node;		/* for debug purpose */
  } patricia_tree_t;
 Index: Net-Pcap-0.16/Makefile.PL
 --- Net-Pcap-0.16/Makefile.PL.orig	2007-12-24 00:06:15.000000000 +0100
 +++ Net-Pcap-0.16/Makefile.PL	2010-12-19 13:15:40.000000000 +0100
@@ -23,7 +23,8 @@
  }
  else {
      $options{CCFLAGS} = '-Wall -Wwrite-strings' if $Config{ccname} eq 'gcc' and $] >= 5.006;
 -    $options{LIBS}    = '-lpcap';
 +    $options{INC}     = '-I/openpkg/include';
 +    $options{LIBS}    = '-L/openpkg/lib -lpcap';
  }
  for my $arg (@ARGV) {
 Index: Net-Pcap-0.16/Pcap.xs
 --- Net-Pcap-0.16/Pcap.xs.orig	2008-01-01 05:22:22.000000000 +0100
 +++ Net-Pcap-0.16/Pcap.xs	2010-12-19 13:15:40.000000000 +0100
@@ -33,7 +33,7 @@
  #define NEED_sv_2pv_nolen 1
  #include "ppport.h"
 -#include <pcap.h>
 +#include "pcap.h"
  #ifdef _CYGWIN
  #include <Win32-Extensions.h>
 Index: Net-RabbitMQ-0.0.4/Makefile.PL
 --- Net-RabbitMQ-0.0.4/Makefile.PL.orig	2009-11-12 21:15:45.000000000 +0100
 +++ Net-RabbitMQ-0.0.4/Makefile.PL	2010-12-19 13:15:40.000000000 +0100
@@ -2,12 +2,16 @@
  use ExtUtils::MakeMaker 5.16 ;
  use Config ;
 -my @parts = qw/api connection debug framing mem socket table/;
 -my $cfiles = join(' ', map { "librabbitmq/amqp_$_.c" } @parts);
 -
  WriteMakefile(
          NAME            => 'Net::RabbitMQ',
          VERSION_FROM    => 'RabbitMQ.pm',
 -	OBJECT          => "RabbitMQ.o $cfiles",
 +	'MYEXTLIB'	=> 'librabbitmq/librabbitmq$(LIB_EXT)',
 +	OBJECT          => "RabbitMQ.o",
          );
 +sub MY::postamble {
 +'
 +$(MYEXTLIB): librabbitmq/Makefile
 +	cd librabbitmq && $(MAKE) $(PASTHRU)
 +';
 +}
 Index: Net-RabbitMQ-0.0.4/librabbitmq/Makefile.PL
 --- Net-RabbitMQ-0.0.4/librabbitmq/Makefile.PL.orig	2010-12-19 13:15:40.000000000 +0100
 +++ Net-RabbitMQ-0.0.4/librabbitmq/Makefile.PL	2010-12-19 13:15:40.000000000 +0100
@@ -0,0 +1,22 @@
 +
 +use ExtUtils::MakeMaker;
 +
 +$Verbose = 1;
 +
 +WriteMakefile(
 +    NAME  => 'Net::RabbitMQ::librabbitmq',
 +    SKIP  => [ qw(all static static_lib dynamic dynamic_lib test) ],
 +    clean => { 'FILES' => 'librabbitmq$(LIB_EXT)' },
 +);
 +
 +sub MY::top_targets {
 +'
 +all :: static
 +test ::
 +static :: librabbitmq$(LIB_EXT)
 +librabbitmq$(LIB_EXT): $(O_FILES)
 +	$(AR) cr librabbitmq$(LIB_EXT) $(O_FILES)
 +	$(RANLIB) librabbitmq$(LIB_EXT)
 +
 +';
 +}
 Index: Net-RabbitMQ-0.0.4/librabbitmq/amqp.h
 --- Net-RabbitMQ-0.0.4/librabbitmq/amqp.h.orig	2009-12-19 08:59:44.000000000 +0100
 +++ Net-RabbitMQ-0.0.4/librabbitmq/amqp.h	2010-12-19 13:15:40.000000000 +0100
@@ -5,6 +5,9 @@
  extern "C" {
  #endif
 +#include <sys/types.h>
 +#include <unistd.h>
 +
  typedef int amqp_boolean_t;
  typedef uint32_t amqp_method_number_t;
  typedef uint32_t amqp_flags_t;
 Index: Net-RabbitMQ-0.0.4/librabbitmq/amqp_config.h
 --- Net-RabbitMQ-0.0.4/librabbitmq/amqp_config.h.orig	2009-11-12 21:15:45.000000000 +0100
 +++ Net-RabbitMQ-0.0.4/librabbitmq/amqp_config.h	2010-12-19 13:15:40.000000000 +0100
@@ -1,2 +1,3 @@
 +#undef VERSION
  #define VERSION "0.0.1"

OpenPKG Specs / annotate

perl-net/perl-net.patch@0bc1d0d1fe3a (annotated)

perl-net/perl-net.patch