r19456 - in /trunk/libnet-mac-perl: Changes MANIFEST META.yml README debian/changelog debian/control lib/Net/MAC.pm t/10_convert_args.t
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Tue May 6 01:17:27 UTC 2008
Author: gwolf
Date: Tue May 6 01:17:27 2008
New Revision: 19456
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19456
Log:
New upstream version
Added:
trunk/libnet-mac-perl/t/10_convert_args.t
- copied unchanged from r19455, branches/upstream/libnet-mac-perl/current/t/10_convert_args.t
Modified:
trunk/libnet-mac-perl/Changes
trunk/libnet-mac-perl/MANIFEST
trunk/libnet-mac-perl/META.yml
trunk/libnet-mac-perl/README
trunk/libnet-mac-perl/debian/changelog
trunk/libnet-mac-perl/debian/control
trunk/libnet-mac-perl/lib/Net/MAC.pm
Modified: trunk/libnet-mac-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/Changes?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/Changes (original)
+++ trunk/libnet-mac-perl/Changes Tue May 6 01:17:27 2008
@@ -1,4 +1,8 @@
# This file documents the revision history for Perl extension Net::MAC.
+
+1.4 2008-05-01 14:53 GMT+1
+ - Fix rt.cpan#34680
+ Unspecified delimiter to convert() when bit_group() is not 48
1.3 2008-03-30 19:12 GMT+1
- Added Changes file.
Modified: trunk/libnet-mac-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/MANIFEST?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/MANIFEST (original)
+++ trunk/libnet-mac-perl/MANIFEST Tue May 6 01:17:27 2008
@@ -5,6 +5,7 @@
README
lib/Net/MAC.pm
scripts/gen_macs.pl
+t/10_convert_args.t
t/100_base10_macs.pl
t/100_base16_macs.pl
t/Net-MAC.t
Modified: trunk/libnet-mac-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/META.yml?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/META.yml (original)
+++ trunk/libnet-mac-perl/META.yml Tue May 6 01:17:27 2008
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Net-MAC
-version: 1.3
+version: 1.4
version_from: lib/Net/MAC.pm
installdirs: site
requires:
Modified: trunk/libnet-mac-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/README?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/README (original)
+++ trunk/libnet-mac-perl/README Tue May 6 01:17:27 2008
@@ -146,6 +146,13 @@
'delimiter' => '.' # dot-delimited
);
+ Note that if any of the above arguments are not provided, they will be
+ set to the following default values:
+
+ base 16
+ bit_group 8 (i.e. a delimiter will be used)
+ delimiter :
+
Conversion to common formats
The most common formats have shortcut conversion methods that can be
used instead of the convert() method with its many options.
Modified: trunk/libnet-mac-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/debian/changelog?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/debian/changelog (original)
+++ trunk/libnet-mac-perl/debian/changelog Tue May 6 01:17:27 2008
@@ -1,3 +1,10 @@
+libnet-mac-perl (1.4-1) unstable; urgency=low
+
+ * New upstream release
+ * Added myself as an uploader
+
+ -- Gunnar Wolf <gwolf at debian.org> Mon, 05 May 2008 20:20:40 -0500
+
libnet-mac-perl (1.3-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libnet-mac-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/debian/control?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/debian/control (original)
+++ trunk/libnet-mac-perl/debian/control Tue May 6 01:17:27 2008
@@ -5,7 +5,8 @@
Build-Depends-Indep: perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Alejandro Garrido Mota <garridomota at gmail.com>,
- Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+ Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>,
+ Gunnar Wolf <gwolf at debian.org>
Homepage: http://search.cpan.org/dist/Net-MAC/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-mac-perl/
Vcs-Browser:
Modified: trunk/libnet-mac-perl/lib/Net/MAC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-mac-perl/lib/Net/MAC.pm?rev=19456&op=diff
==============================================================================
--- trunk/libnet-mac-perl/lib/Net/MAC.pm (original)
+++ trunk/libnet-mac-perl/lib/Net/MAC.pm Tue May 6 01:17:27 2008
@@ -29,8 +29,8 @@
'ne' => \&_compare_string_ne;
# RCS ident string
-#my $rcs_id = '$Id: MAC.pm 139 2008-03-30 18:41:33Z oliver $';
-our $VERSION = '1.3';
+#my $rcs_id = '$Id: MAC.pm 157 2008-05-01 14:02:34Z oliver $';
+our $VERSION = '1.4';
our $AUTOLOAD;
# Constructor.
@@ -418,7 +418,7 @@
my ( $self, %arg ) = @_;
my $imac = $self->get_internal_mac();
my @groups;
- my $bit_group = $arg{'bit_group'} || 8; # FIXME: ?
+ my $bit_group = $arg{'bit_group'} || 8; # not _default value
my $offset = 0;
use integer;
my $size = $bit_group / 4;
@@ -456,6 +456,10 @@
#warn "\nconvert groups @groups\n";
}
+ elsif ($bit_group != 48) {
+ # use default delimiter
+ $mac_string = join( ':', @groups );
+ }
else {
$mac_string = join( '', @groups );
}
@@ -710,6 +714,13 @@
'delimiter' => '.' # dot-delimited
);
+Note that if any of the above arguments are not provided, they will be set to
+the following default values:
+
+ base 16
+ bit_group 8 (i.e. a delimiter will be used)
+ delimiter :
+
=head2 Conversion to common formats
The most common formats have shortcut conversion methods that can be used
More information about the Pkg-perl-cvs-commits
mailing list