Skip Menu |

This queue is for tickets about the File-Mork CPAN distribution.

Report information
The Basics
Id: 92753
Status: resolved
Priority: 0/
Queue: File-Mork

People
Owner: simonw [...] cpan.org
Requestors: R.ONeale [...] exeter.ac.uk
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: UTF-16 conversion error
Date: Wed, 05 Feb 2014 14:43:28 +0000
To: bug-File-Mork [...] rt.cpan.org
From: Rob O'Neale <R.ONeale [...] exeter.ac.uk>
I recently experienced the same bug detailed in the URL below. The fix detailed there solved the problem for me. http://code.google.com/p/log2timeline/issues/detail?id=9 It's explained in more detail than I could convey on that page, so I haven't attempted to give more details. If you'd like any further info from me please let me know. Thanks for writing/maintaining the module, it has just saved a great deal of hassle retrieving a corrupted address book for one of my users. Regards, Rob -- Rob O'Neale Research Computing Support Officer College of Engineering, Mathematics and Physical Sciences University of Exeter r.oneale@exeter.ac.uk 01392 726342
On Wed Feb 05 09:43:38 2014, R.ONeale@exeter.ac.uk wrote:
Show quoted text
> I recently experienced the same bug detailed in the URL below. The fix
> detailed there solved the problem for me.
>
> http://code.google.com/p/log2timeline/issues/detail?id=9
>
> It's explained in more detail than I could convey on that page, so I
> haven't attempted to give more details. If you'd like any further info
> from me please let me know.
>
> Thanks for writing/maintaining the module, it has just saved a great
> deal of hassle retrieving a corrupted address book for one of my users.
>
> Regards,
> Rob
>

Any movement on this?  

This patch lets me read all my address books on thunderbird.

--- File/Mork.pm.orig   Sat Dec 19 19:33:02 2015
+++ File/Mork.pm        Sat Dec 19 15:38:49 2015
@@ -333,7 +333,7 @@ sub parse_value_table {
         }
 
         # recognize the byte order of UTF-16 encoding
-        if (! defined ($self->{byte_order}) && $val =~ m/(?:BE|LE)/) {
+        if (! defined ($self->{byte_order}) && $val =~ m/(?:BE|LE)$/) {
             $self->{byte_order} = $val;
         }
 
 
Fixed in version 0.4. On it's way to CPAN now. Sorry for the delay.