byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lib/Qpsmtpd/Address.pm

Browse Source 
Don't overload '<=>' operator casually.  Swap host/user portion
    when comparing (makes it easy to sort by domain).

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@558 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-11-01 15:14:48 +00:00
parent 7bc7916bda
commit 3b09cc25d7
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/Qpsmtpd/Address.pm
View File

@ -3,8 +3,7 @@ use strict;
use overload ( use overload (
'""' => \&format, '""' => \&format,
'cmp' => \&spaceship, 'cmp' => \&addr_cmp,
'<=>' => \&spaceship,
); );
sub new { sub new {
@ -193,7 +192,7 @@ sub host {
return $self->{_host}; return $self->{_host};
} }
sub spaceship { sub addr_cmp {
require UNIVERSAL; require UNIVERSAL;
my ($left, $right, $swap) = @_; my ($left, $right, $swap) = @_;
my $class = ref($left); my $class = ref($left);
@ -202,11 +201,15 @@ sub spaceship {
$right = $class->new($right); $right = $class->new($right);
} }
#invert the address so we can sort by domain then user
$left = lc($left->host.'='.$left->user);
$right = lc($right->host.'='.$right->user);
if ( $swap ) { if ( $swap ) {
($right, $left) = ($left, $right); ($right, $left) = ($left, $right);
} }
return lc($left->format) cmp lc($right->format); return ($left cmp $right);
} }
1; 1;