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