r66158 - in /trunk/libauthen-radius-perl/debian: changelog patches/01_radius_port.patch patches/02_use_dumper.patch

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri Dec 24 04:34:42 2010
New Revision: 66158

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66158
Log:
* RADIUS port patch is now a documentation fix only
* Refresh patch to use Data::Dumper instead of HexDump

Modified:
    trunk/libauthen-radius-perl/debian/changelog
    trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch
    trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch

Modified: trunk/libauthen-radius-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/changelog?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/changelog (original)
+++ trunk/libauthen-radius-perl/debian/changelog Fri Dec 24 04:34:42 2010
@@ -8,6 +8,8 @@
     + Now supports multiple RADIUS servers (i.e. a cluster)
   * Standards-Version 3.9.1 (no changes)
   * Use new 3.0 (quilt) source format
+  * RADIUS port patch is now a documentation fix only
+  * Refresh patch to use Data::Dumper instead of HexDump
 
   [ gregor herrmann ]
   * debian/rules: switch order of arguments to dh.

Modified: trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch (original)
+++ trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch Fri Dec 24 04:34:42 2010
@@ -1,21 +1,12 @@
-Author: Stephen Quinney <sjq at debian.org>
 Description: Change de standard radius port
  The standard radius port on Debian is 1812 rather than 1645 which is 
  now "old-radius".
-Reviewed-by: Italo Valcy <italo at dcc.ufba.br>
-Last-Update: 2009-08-30
+ .
+ This patch is now a simple documentation fix (the default upstream
+ has now been changed to 1645).
 --- a/Radius.pm
 +++ b/Radius.pm
-@@ -81,7 +81,7 @@
- 	$port = getservbyname($service, 'udp') unless $port;
- 
- 	unless ($port) {
--		my %services = ( radius => 1645, radacct => 1646,
-+		my %services = ( radius => 1812, radacct => 1646,
- 						 'radius-acct' => 1813 );
- 		if (exists($services{$service})) {
- 			$port = $services{$service};
-@@ -605,7 +605,7 @@
+@@ -879,7 +879,7 @@
  The default C<Service> is C<radius>, the alternative is C<radius-acct>.
  If you do not specify port in the C<Host> as a C<hostname:port>, then port
  specified in your F</etc/services> will be used. If there is nothing

Modified: trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch (original)
+++ trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch Fri Dec 24 04:34:42 2010
@@ -2,11 +2,11 @@
 Description: This removes the dependency on Data::HexDump
  Data::HexDump was being used exclusively for debugging purposes. It is 
  switched instead to using Data::Dumper (which is a core Perl module).
-Reviewed-by: Italo Valcy <italo at dcc.ufba.br>
-Last-Update: 2009-08-30
+Reviewed-by: Italo Valcy <italo at dcc.ufba.br>, Jonathan Yu <jawnsy at cpan.org>
+Last-Update: 2010-12-23
 --- a/Radius.pm
 +++ b/Radius.pm
-@@ -22,7 +22,6 @@
+@@ -23,7 +23,6 @@
  use IO::Select;
  use Digest::MD5;
  use Data::Dumper;
@@ -14,24 +14,24 @@
  
  use vars qw($VERSION @ISA @EXPORT);
  
-@@ -153,7 +152,7 @@
+@@ -207,7 +206,7 @@
  
  	if ($debug) {
  		print STDERR "Sending request:\n";
 -		print STDERR HexDump($data);
 +		print STDERR Data::Dumper::Dumper($data);
  	}
- 	$self->{'sock'}->send($data) || $self->set_error('ESENDFAIL', $!);
- }
-@@ -170,7 +169,7 @@
- 	$self->{'sock'}->recv ($data, 65536) or return $self->set_error('ERECVFAIL', $!);
- 	if ($debug) {
- 		print STDERR "Received response:\n";
+ 	my $res;
+ 	if (!defined($self->{'node_list_a'})) {
+@@ -278,7 +277,7 @@
+ 
+ 	if ($debug) { 
+ 		print STDERR "Received response:\n"; 
 -		print STDERR HexDump($data);
 +		print STDERR Data::Dumper::Dumper($data);
  	}
- 	($type, $id, $length, $auth, $resp_attributes ) = unpack('C C n a16 a*', $data);
- 	if ($detect_bad_id && defined($id) && ($id != $request_id) ) {
+ 
+ 	if (defined($self->{'sock_list'})) {
 --- a/Makefile.PL
 +++ b/Makefile.PL
 @@ -8,7 +8,6 @@