14 lines
514 B
Perl
14 lines
514 B
Perl
$NetBSD: patch-lib_Message_Field.pm,v 1.1 2013/12/27 12:47:07 is Exp $
|
|
|
|
--- lib/Mail/Message/Field.pm.orig 2012-01-04 08:35:33.000000000 +0000
|
|
+++ lib/Mail/Message/Field.pm
|
|
@@ -22,7 +22,7 @@ my $default_wrap_length = 78;
|
|
|
|
use overload
|
|
qq("") => sub { $_[0]->unfoldedBody }
|
|
- , '+0' => sub { $_[0]->toInt || 0 }
|
|
+ , '0+' => sub { $_[0]->toInt || 0 }
|
|
, bool => sub {1}
|
|
, cmp => sub { $_[0]->unfoldedBody cmp "$_[1]" }
|
|
, '<=>' => sub { $_[2] ? $_[1] <=> $_[0]->toInt : $_[0]->toInt <=> $_[1] }
|