[otrs-cvs] otrs/Kernel/cpan-lib/Mail Address.pm, 1.14, 1.15 Cap.pm, 1.14, 1.15 Field.pm, 1.14, 1.15 Filter.pm, 1.14, 1.15 Header.pm, 1.14, 1.15 Internet.pm, 1.14, 1.15 Mailer.pm, 1.14, 1.15 Send.pm, 1.14, 1.15 Util.pm, 1.14, 1.15

"CVS commits notifications of OTRS.org" <[email protected]>
Newsgroups gmane.comp.otrs.cvs
Message-ID <[email protected]> 
Comments:
Update of /home/cvs/otrs/Kernel/cpan-lib/Mail
In directory lancelot:/tmp/cvs-serv7725/Mail

Modified Files:
	Address.pm Cap.pm Field.pm Filter.pm Header.pm Internet.pm 
	Mailer.pm Send.pm Util.pm 
Log Message:
Updated CPAN module MailTools to version 2.12.

Author: mh

Index: Address.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Address.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Address.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Address.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -5,5 +5,5 @@
 package Mail::Address;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 use strict;
@@ -166,5 +166,5 @@
         }
         elsif($depth)       { push @address, $_ }
-        elsif($next eq "<") { push @phrase,  $_ }
+        elsif($next eq '<') { push @phrase,  $_ }
         elsif( /^[.\@:;]$/ || !@address || $address[-1] =~ /^[.\@:;]$/ )
         {   push @address, $_ }
@@ -267,5 +267,5 @@
 sub user
 {   my $addr = shift->address || '';
-    my $i    = index $addr, '@';
+    my $i    = rindex $addr, '@';
     $i >= 0 ? substr($addr,0,$i) : $addr;
 }

Author: mh

Index: Cap.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Cap.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Cap.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Cap.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -5,5 +5,5 @@
 package Mail::Cap;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 use strict;

Author: mh

Index: Field.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Field.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Field.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Field.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -5,5 +5,5 @@
 package Mail::Field;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 

Author: mh

Index: Filter.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Filter.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Filter.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Filter.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -6,5 +6,5 @@
 package Mail::Filter;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 

Author: mh

Index: Header.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Header.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Header.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Header.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -5,5 +5,5 @@
 package Mail::Header;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 
@@ -181,6 +181,13 @@
               || $self->fold_length;
 
-    _fold_line $line, $maxlen
-        if $modify && defined $maxlen;
+    if ($modify && defined $maxlen)
+    {   # folding will fix bad header continuations for us
+        _fold_line $line, $maxlen;
+    }
+    elsif($line =~ /\r?\n\S/)
+    {   return _error "Bad header continuation, skipping '$tag': ",
+                      "no space after newline in '$line'\n";
+    }
+
 
     $line =~ s/\n*$/\n/so;

Author: mh

Index: Internet.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Internet.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Internet.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Internet.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -5,5 +5,5 @@
 package Mail::Internet;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 use strict;

Author: mh

Index: Mailer.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Mailer.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Mailer.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Mailer.pm	15 Jan 2013 12:40:54 -0000	1.15
@@ -7,5 +7,5 @@
 package Mail::Mailer;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 use base 'IO::Handle';

Author: mh

Index: Send.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Send.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Send.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Send.pm	15 Jan 2013 12:40:55 -0000	1.15
@@ -7,5 +7,5 @@
 package Mail::Send;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 

Author: mh

Index: Util.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/cpan-lib/Mail/Util.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- Util.pm	30 Oct 2012 13:43:41 -0000	1.14
+++ Util.pm	15 Jan 2013 12:40:55 -0000	1.15
@@ -7,5 +7,5 @@
 package Mail::Util;
 use vars '$VERSION';
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 use base 'Exporter';
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.