r69765 - in /trunk/libnet-libdnet-perl: ./ c/ debian/ debian/patches/ debian/source/ lib/Net/ lib/Net/Libdnet/ lib/Net/Libdnet/Entry/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Feb 26 16:27:13 UTC 2011


Author: jawnsy-guest
Date: Sat Feb 26 16:27:02 2011
New Revision: 69765

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69765
Log:
* New upstream release
* Refresh copyright information
* Standards-Version 3.9.1 (no changes)
* Use new 3.0 (quilt) source format
* Refresh patches

Added:
    trunk/libnet-libdnet-perl/debian/source/
    trunk/libnet-libdnet-perl/debian/source/format
Removed:
    trunk/libnet-libdnet-perl/debian/README.source
Modified:
    trunk/libnet-libdnet-perl/Changes
    trunk/libnet-libdnet-perl/Libdnet.xs
    trunk/libnet-libdnet-perl/META.yml
    trunk/libnet-libdnet-perl/README
    trunk/libnet-libdnet-perl/c/arp_entry.c
    trunk/libnet-libdnet-perl/c/fw_rule.c
    trunk/libnet-libdnet-perl/c/intf_entry.c
    trunk/libnet-libdnet-perl/c/route_entry.c
    trunk/libnet-libdnet-perl/debian/changelog
    trunk/libnet-libdnet-perl/debian/control
    trunk/libnet-libdnet-perl/debian/copyright
    trunk/libnet-libdnet-perl/debian/patches/use-libdumbnet.patch
    trunk/libnet-libdnet-perl/debian/rules
    trunk/libnet-libdnet-perl/lib/Net/Libdnet.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Arp.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Entry/Intf.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Eth.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Fw.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Intf.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Ip.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Route.pm
    trunk/libnet-libdnet-perl/lib/Net/Libdnet/Tun.pm

Modified: trunk/libnet-libdnet-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/Changes?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/Changes (original)
+++ trunk/libnet-libdnet-perl/Changes Sat Feb 26 16:27:02 2011
@@ -1,4 +1,13 @@
 Revision history for Perl extension Net::Libdnet.
+
+0.94 Fri Jan 14 11:09:49 CET 2011
+   - bugfix: tohash method in pod
+   - applied http://rt.cpan.org/Public/Bug/Display.html?id=52359
+
+0.93 Thu Jan 13 11:07:07 CET 2011
+   - update: makes components more inline with local install 
+     of libdnet
+   - update: copyright notice
 
 0.92 Wed May 13 20:59:41 CEST 2009
    - applied http://rt.cpan.org/Ticket/Display.html?id=43899

Modified: trunk/libnet-libdnet-perl/Libdnet.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/Libdnet.xs?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/Libdnet.xs (original)
+++ trunk/libnet-libdnet-perl/Libdnet.xs Sat Feb 26 16:27:02 2011
@@ -1,8 +1,8 @@
-/* $Id: Libdnet.xs 26 2009-05-13 19:01:18Z gomor $ */
+/* $Id: Libdnet.xs 31 2011-01-12 12:52:47Z gomor $ */
 
 /*
  * Copyright (c) 2004 Vlad Manilici
- * Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+ * Copyright (c) 2008-2011 Patrice <GomoR> Auffret
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -36,15 +36,39 @@
 #include <stdio.h>
 #include <dnet.h>
 
+#ifdef DNET_BLOB_H
 typedef blob_t              Blob;
+#endif
+
+#ifdef DNET_ETH_H
+typedef eth_t               EthHandle;
 typedef eth_addr_t          EthAddr;
-typedef eth_t               EthHandle;
+#endif
+
+#ifdef DNET_INTF_H
 typedef intf_t              IntfHandle;
+#endif
+
+#ifdef DNET_ARP_H
 typedef arp_t               ArpHandle;
+#endif
+
+#ifdef DNET_FW_H
 typedef fw_t                FwHandle;
+#endif
+
+#ifdef DNET_ROUTE_H
 typedef route_t             RouteHandle;
+#endif
+
+#ifdef DNET_TUN_H
 typedef tun_t               TunHandle;
+#endif
+
+#ifdef DNET_IP_H
 typedef ip_t                IpHandle;
+#endif
+
 typedef struct intf_entry   IntfEntry;
 typedef struct arp_entry    ArpEntry;
 typedef struct fw_rule      FwRule;
@@ -838,9 +862,11 @@
 
 #
 # The following are the new XS implementation.
-# I prefixed with dnet_ in order to not clash with libdnet C functions use by 
+# I prefixed with dnet_ in order to not clash with libdnet C functions used by 
 # obsolete XS implementation.
 #
+
+#if defined DNET_INTF_H
 
 IntfHandle *
 dnet_intf_open()
@@ -953,6 +979,10 @@
    OUTPUT:
       RETVAL
 
+#endif
+
+#if defined DNET_ARP_H
+
 ArpHandle *
 dnet_arp_open()
    CODE:
@@ -1032,6 +1062,10 @@
    OUTPUT:
       RETVAL
 
+#endif
+
+#if defined DNET_ROUTE_H
+
 RouteHandle *
 dnet_route_open()
    CODE:
@@ -1112,6 +1146,10 @@
    OUTPUT:
       RETVAL
 
+#endif
+
+#if defined DNET_FW_H
+
 FwHandle *
 dnet_fw_open()
    CODE:
@@ -1174,6 +1212,10 @@
       RETVAL = fw_close(handle);
    OUTPUT:
       RETVAL
+
+#endif
+
+#if defined DNET_TUN_H
 
 TunHandle *
 dnet_tun_open(src, dst, size)
@@ -1246,6 +1288,10 @@
    OUTPUT:
       RETVAL
 
+#endif
+
+#if defined DNET_ETH_H
+
 EthHandle *
 dnet_eth_open(device)
       SV *device
@@ -1298,6 +1344,10 @@
    OUTPUT:
       RETVAL
 
+#endif
+
+#if defined DNET_IP_H
+
 IpHandle *
 dnet_ip_open()
    CODE:
@@ -1330,3 +1380,5 @@
       RETVAL = ip_close(handle);
    OUTPUT:
       RETVAL
+
+#endif

Modified: trunk/libnet-libdnet-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/META.yml?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/META.yml (original)
+++ trunk/libnet-libdnet-perl/META.yml Sat Feb 26 16:27:02 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-Libdnet
-version:            0.92
+version:            0.94
 abstract:           binding for Dug Song's libdnet
 author:
     - GomoR <gomor-cpan_at_gomor.org>
@@ -16,7 +16,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.50
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: trunk/libnet-libdnet-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/README?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/README (original)
+++ trunk/libnet-libdnet-perl/README Sat Feb 26 16:27:02 2011
@@ -50,5 +50,5 @@
 See LICENSE file in the source distribution archive.
 
 Copyright (c) 2004, Vlad Manilici
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 

Modified: trunk/libnet-libdnet-perl/c/arp_entry.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/c/arp_entry.c?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/c/arp_entry.c (original)
+++ trunk/libnet-libdnet-perl/c/arp_entry.c Sat Feb 26 16:27:02 2011
@@ -1,7 +1,7 @@
-/* $Id: arp_entry.c 26 2009-05-13 19:01:18Z gomor $ */
+/* $Id: arp_entry.c 36 2011-01-14 07:48:43Z gomor $ */
 
 /*
- * Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+ * Copyright (c) 2008-2011 Patrice <GomoR> Auffret
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -33,15 +33,16 @@
 {
    HV *out     = newHV();
    SV *out_ref = newRV_noinc((SV *)out);
+   char *pa, *ha;
 
-   char *pa = addr_ntoa(&(entry->arp_pa));
+   pa = addr_ntoa(&(entry->arp_pa));
    if (pa == NULL) {
       hv_store(out, "arp_pa", 6, &PL_sv_undef, 0);
    }
    else {
       hv_store(out, "arp_pa", 6, newSVpv(pa, 0), 0);
    }
-   char *ha = addr_ntoa(&(entry->arp_ha));
+   ha = addr_ntoa(&(entry->arp_ha));
    if (ha == NULL) {
       hv_store(out, "arp_ha", 6, &PL_sv_undef, 0);
    }

Modified: trunk/libnet-libdnet-perl/c/fw_rule.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/c/fw_rule.c?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/c/fw_rule.c (original)
+++ trunk/libnet-libdnet-perl/c/fw_rule.c Sat Feb 26 16:27:02 2011
@@ -1,7 +1,7 @@
-/* $Id: fw_rule.c 26 2009-05-13 19:01:18Z gomor $ */
+/* $Id: fw_rule.c 36 2011-01-14 07:48:43Z gomor $ */
 
 /*
- * Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+ * Copyright (c) 2008-2011 Patrice <GomoR> Auffret
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -33,28 +33,30 @@
 {
    HV *out     = newHV();
    SV *out_ref = newRV_noinc((SV *)out);
+   AV *sport, *dport;
+   char *src, *dst;
+   int i;
 
    hv_store(out, "fw_device", 9, newSVpv(rule->fw_device, 0), 0);
    hv_store(out, "fw_op", 5, newSViv(rule->fw_op), 0);
    hv_store(out, "fw_dir", 6, newSViv(rule->fw_dir), 0);
    hv_store(out, "fw_proto", 8, newSViv(rule->fw_proto), 0);
-   char *src = addr_ntoa(&(rule->fw_src));
+   src = addr_ntoa(&(rule->fw_src));
    if (src == NULL) {
       hv_store(out, "fw_src", 6, &PL_sv_undef, 0);
    }
    else {
       hv_store(out, "fw_src", 6, newSVpv(src, 0), 0);
    }
-   char *dst = addr_ntoa(&(rule->fw_dst));
+   dst = addr_ntoa(&(rule->fw_dst));
    if (dst == NULL) {
       hv_store(out, "fw_dst", 6, &PL_sv_undef, 0);
    }
    else {
       hv_store(out, "fw_dst", 6, newSVpv(dst, 0), 0);
    }
-   int i;
-   AV *sport = newAV();
-   AV *dport = newAV();
+   sport = newAV();
+   dport = newAV();
    for (i=0; i<2; i++) {
       av_push(sport, newSViv(rule->fw_sport[i]));
       av_push(dport, newSViv(rule->fw_dport[i]));

Modified: trunk/libnet-libdnet-perl/c/intf_entry.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/c/intf_entry.c?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/c/intf_entry.c (original)
+++ trunk/libnet-libdnet-perl/c/intf_entry.c Sat Feb 26 16:27:02 2011
@@ -1,7 +1,7 @@
-/* $Id: intf_entry.c 26 2009-05-13 19:01:18Z gomor $ */
+/* $Id: intf_entry.c 36 2011-01-14 07:48:43Z gomor $ */
 
 /*
- * Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+ * Copyright (c) 2008-2011 Patrice <GomoR> Auffret
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -33,6 +33,7 @@
 {
    HV *out     = newHV();
    SV *out_ref = newRV_noinc((SV *)out);
+   char *sAddr, *sDstAddr, *sLnkAddr;
 
    hv_store(out, "intf_len",    8, newSViv(entry->intf_len), 0);
    hv_store(out, "intf_name",   9, newSVpv(entry->intf_name, 0), 0);
@@ -40,21 +41,21 @@
    hv_store(out, "intf_flags", 10, newSViv(entry->intf_flags), 0);
    hv_store(out, "intf_mtu",    8, newSViv(entry->intf_mtu), 0);
 
-   char *sAddr = addr_ntoa(&(entry->intf_addr));
+   sAddr = addr_ntoa(&(entry->intf_addr));
    if (sAddr == NULL) {
       hv_store(out, "intf_addr", 9, &PL_sv_undef, 0);
    }
    else {
       hv_store(out, "intf_addr", 9, newSVpv(sAddr, 0), 0);
    }
-   char *sDstAddr = addr_ntoa(&(entry->intf_dst_addr));
+   sDstAddr = addr_ntoa(&(entry->intf_dst_addr));
    if (sDstAddr == NULL) {
       hv_store(out, "intf_dst_addr", 13, &PL_sv_undef, 0);
    }
    else {
       hv_store(out, "intf_dst_addr", 13, newSVpv(sDstAddr, 0), 0);
    }
-   char *sLnkAddr = addr_ntoa(&(entry->intf_link_addr));
+   sLnkAddr = addr_ntoa(&(entry->intf_link_addr));
    if (sLnkAddr == NULL) {
       hv_store(out, "intf_link_addr", 14, &PL_sv_undef, 0);
    }

Modified: trunk/libnet-libdnet-perl/c/route_entry.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/c/route_entry.c?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/c/route_entry.c (original)
+++ trunk/libnet-libdnet-perl/c/route_entry.c Sat Feb 26 16:27:02 2011
@@ -1,7 +1,7 @@
-/* $Id: route_entry.c 26 2009-05-13 19:01:18Z gomor $ */
+/* $Id: route_entry.c 36 2011-01-14 07:48:43Z gomor $ */
 
 /*
- * Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+ * Copyright (c) 2008-2011 Patrice <GomoR> Auffret
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -33,11 +33,12 @@
 {
    HV *out     = newHV();
    SV *out_ref = newRV_noinc((SV *)out);
+   char *dst, *gw;
    if (entry != NULL) {
-      char *dst = addr_ntoa(&(entry->route_dst));
+      dst = addr_ntoa(&(entry->route_dst));
       dst == NULL ? hv_store(out, "route_dst", 9, &PL_sv_undef, 0)
                   : hv_store(out, "route_dst", 9, newSVpv(dst, 0), 0);
-      char *gw = addr_ntoa(&(entry->route_gw));
+      gw = addr_ntoa(&(entry->route_gw));
       gw == NULL ? hv_store(out, "route_gw", 8, &PL_sv_undef, 0)
                  : hv_store(out, "route_gw", 8, newSVpv(gw, 0), 0);
    }

Modified: trunk/libnet-libdnet-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/changelog?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/debian/changelog (original)
+++ trunk/libnet-libdnet-perl/debian/changelog Sat Feb 26 16:27:02 2011
@@ -1,8 +1,16 @@
-libnet-libdnet-perl (0.92-2) UNRELEASED; urgency=low
+libnet-libdnet-perl (0.94-1) UNRELEASED; urgency=low
 
+  [ Jonathan Yu ]
+  * New upstream release
+  * Refresh copyright information
+  * Standards-Version 3.9.1 (no changes)
+  * Use new 3.0 (quilt) source format
+  * Refresh patches
+
+  [ gregor herrmann ]
   * debian/rules: switch order of arguments to dh.
 
- -- gregor herrmann <gregoa at debian.org>  Wed, 28 Jul 2010 14:33:04 -0400
+ -- Jonathan Yu <jawnsy at cpan.org>  Sat, 26 Feb 2011 11:49:44 -0500
 
 libnet-libdnet-perl (0.92-1) unstable; urgency=low
 

Modified: trunk/libnet-libdnet-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/control?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/debian/control (original)
+++ trunk/libnet-libdnet-perl/debian/control Sat Feb 26 16:27:02 2011
@@ -1,11 +1,12 @@
 Source: libnet-libdnet-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7), perl, libdumbnet-dev,
+Build-Depends: debhelper (>= 7.0.50), perl,
+ libdumbnet-dev,
  libclass-gomor-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/Net-Libdnet/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-libdnet-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnet-libdnet-perl/

Modified: trunk/libnet-libdnet-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/copyright?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/debian/copyright (original)
+++ trunk/libnet-libdnet-perl/debian/copyright Sat Feb 26 16:27:02 2011
@@ -4,12 +4,12 @@
 Name: Net-Libdnet
 
 Files: *
-Copyright: 2008-2009, Patrice Auffret <gomor-cpan at gomor.org>
+Copyright: 2008-2011, Patrice Auffret <gomor-cpan at gomor.org>
  2004, Vlad Manilici <vman at tmok.com>
 License: BSD
 
 Files: debian/*
-Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+Copyright: 2010-2011, Jonathan Yu <jawnsy at cpan.org>
 License: Artistic or GPL-1+ or BSD
 
 License: BSD

Modified: trunk/libnet-libdnet-perl/debian/patches/use-libdumbnet.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/patches/use-libdumbnet.patch?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/debian/patches/use-libdumbnet.patch (original)
+++ trunk/libnet-libdnet-perl/debian/patches/use-libdumbnet.patch Sat Feb 26 16:27:02 2011
@@ -13,5 +13,5 @@
 -#include <dnet.h>
 +#include <dumbnet.h>
  
+ #ifdef DNET_BLOB_H
  typedef blob_t              Blob;
- typedef eth_addr_t          EthAddr;

Modified: trunk/libnet-libdnet-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/rules?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/debian/rules (original)
+++ trunk/libnet-libdnet-perl/debian/rules Sat Feb 26 16:27:02 2011
@@ -4,7 +4,7 @@
 TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 %:
-	dh $@ --with quilt
+	dh $@
 
 override_dh_auto_install:
 	dh_auto_install

Added: trunk/libnet-libdnet-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/debian/source/format?rev=69765&op=file
==============================================================================
--- trunk/libnet-libdnet-perl/debian/source/format (added)
+++ trunk/libnet-libdnet-perl/debian/source/format Sat Feb 26 16:27:02 2011
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet.pm Sat Feb 26 16:27:02 2011
@@ -1,8 +1,8 @@
 #
-# $Id: Libdnet.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Libdnet.pm 37 2011-01-14 07:50:03Z gomor $
 #
 # Copyright (c) 2004 Vlad Manilici
-# Copyright (c) 2008-2009 Patrice <GomoR> Auffret
+# Copyright (c) 2008-2011 Patrice <GomoR> Auffret
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
@@ -33,7 +33,7 @@
 
 use base qw(Exporter DynaLoader);
 
-our $VERSION = '0.92';
+our $VERSION = '0.94';
 
 our %EXPORT_TAGS = (
    obsolete => [qw(
@@ -631,7 +631,7 @@
 
 Copyright (c) 2004, Vlad Manilici
 
-Copyright (c) 2008, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =head1 SEE ALSO
 

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Arp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Arp.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Arp.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Arp.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Arp.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Arp.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Arp;
 use strict; use warnings;
@@ -115,6 +115,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Entry/Intf.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Entry/Intf.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Entry/Intf.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Entry/Intf.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Intf.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Intf.pm 39 2011-01-14 10:12:06Z gomor $
 #
 package Net::Libdnet::Entry::Intf;
 use strict; use warnings;
@@ -30,6 +30,14 @@
 
 use Net::Libdnet qw(:consts :obsolete);
 
+sub new {
+   my $self = shift->SUPER::new(
+      aliasAddrs => [],
+      @_,
+   );
+   return $self;
+}
+
 sub newFromHash {
    my $self = shift->SUPER::new;
    my ($h) = @_;
@@ -53,6 +61,24 @@
    return $self;
 }
 
+sub tohash {
+   my $self = shift;
+
+   my %hash;
+   $hash{intf_alias_num}   = $self->aliasNum   if defined($self->aliasNum);
+   $hash{intf_mtu}         = $self->mtu        if defined($self->mtu);
+   $hash{intf_len}         = $self->len        if defined($self->len);
+   $hash{intf_type}        = $self->type       if defined($self->type);
+   $hash{intf_name}        = $self->name       if defined($self->name);
+   $hash{intf_dst_addr}    = $self->dstAddr    if defined($self->dstAddr);
+   $hash{intf_link_addr}   = $self->linkAddr   if defined($self->linkAddr);
+   $hash{intf_flags}       = $self->flags      if defined($self->flags);
+   $hash{intf_alias_addrs} = $self->aliasAddrs if defined($self->aliasAddrs);
+   $hash{intf_addr}        = $self->addr       if defined($self->addr);
+
+   return \%hash;
+}
+
 #
 # Courtesy of Net::IPv4Addr
 #
@@ -164,6 +190,8 @@
 
 =item B<print>
 
+=item B<tohash>
+
 =back
 
 =head1 AUTHOR
@@ -174,6 +202,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Eth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Eth.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Eth.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Eth.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Eth.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Eth.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Eth;
 use strict; use warnings;
@@ -92,6 +92,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Fw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Fw.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Fw.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Fw.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Fw.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Fw.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Fw;
 use strict; use warnings;
@@ -143,6 +143,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Intf.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Intf.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Intf.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Intf.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Intf.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Intf.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Intf;
 use strict; use warnings;
@@ -129,6 +129,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Ip.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Ip.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Ip.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Ip.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Ip.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Ip.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Ip;
 use strict; use warnings;
@@ -75,6 +75,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Route.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Route.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Route.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Route.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Route.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Route.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Route;
 use strict; use warnings;
@@ -92,6 +92,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut

Modified: trunk/libnet-libdnet-perl/lib/Net/Libdnet/Tun.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-libdnet-perl/lib/Net/Libdnet/Tun.pm?rev=69765&op=diff
==============================================================================
--- trunk/libnet-libdnet-perl/lib/Net/Libdnet/Tun.pm (original)
+++ trunk/libnet-libdnet-perl/lib/Net/Libdnet/Tun.pm Sat Feb 26 16:27:02 2011
@@ -1,5 +1,5 @@
 #
-# $Id: Tun.pm 26 2009-05-13 19:01:18Z gomor $
+# $Id: Tun.pm 31 2011-01-12 12:52:47Z gomor $
 #
 package Net::Libdnet::Tun;
 use strict; use warnings;
@@ -101,6 +101,6 @@
 
 You may distribute this module under the terms of the BSD license. See LICENSE file in the source distribution archive.
 
-Copyright (c) 2008-2009, Patrice <GomoR> Auffret
+Copyright (c) 2008-2011, Patrice <GomoR> Auffret
 
 =cut




More information about the Pkg-perl-cvs-commits mailing list