Skip Menu |

This queue is for tickets about the net-tacacsplus CPAN distribution.

Report information
The Basics
Id: 59411
Status: resolved
Worked: 1 hour (60 min)
Priority: 0/
Queue: net-tacacsplus
People
Owner: Nobody in particular
Requestors: dz [...] 426.ch
Cc:
AdminCc:
Bug Information
Severity: Important
Broken in: 1.08
Fixed in: (no value)

History Show all quoted text
  Thu Jul 15 09:28:18 2010 http://www.google.com/profiles/115519889370606192700 - Ticket created
Subject: Math::XOR no longer exists
The module Math::XOR seems not to exist anymore. But you can use ^ for xor'ing strings, too. -Derik. Patch: --- Packet.pm-orig 2010-07-15 15:11:07.000000000 +0200 +++ Packet.pm 2010-07-15 15:11:38.000000000 +0200 @@ -126,7 +126,6 @@ use Carp::Clan; use Digest::MD5 ('md5'); -use Math::XOR ('xor_buf'); use base qw{ Class::Accessor::Fast }; @@ -347,7 +346,7 @@ length($data), ); - $data=xor_buf($data,$pseudo_pad); + $data=$data ^ $pseudo_pad; return $data; }
  Thu Jul 15 13:36:34 2010 jozef [...] kutej.net - Correspondence added
From: jozef [...] kutej.net
Just uploaded version 1.09 with your fix. Thank you! Jozef On Thu Jul 15 09:28:18 2010, http://www.google.com/profiles/115519889370606192700 wrote: Show quoted text
> The module Math::XOR seems not to exist anymore. But you can use ^ for > xor'ing strings, too. > > -Derik. > > > Patch: > > --- Packet.pm-orig 2010-07-15 15:11:07.000000000 +0200 > +++ Packet.pm 2010-07-15 15:11:38.000000000 +0200 > @@ -126,7 +126,6 @@ > > use Carp::Clan; > use Digest::MD5 ('md5'); > -use Math::XOR ('xor_buf'); > > use base qw{ Class::Accessor::Fast }; > > @@ -347,7 +346,7 @@ > length($data), > ); > > - $data=xor_buf($data,$pseudo_pad); > + $data=$data ^ $pseudo_pad; > > return $data; > }
  Thu Jul 15 13:36:34 2010 The RT System itself - Status changed from 'new' to 'open'
  Thu Jul 15 13:42:36 2010 jozef [...] kutej.net - TimeWorked changed from (no value) to '60'
  Thu Jul 15 13:42:36 2010 jozef [...] kutej.net - Status changed from 'open' to 'resolved'