r12894 - in /trunk/libpdf-api2-perl/debian: changelog patches/fix-UTF16-detection.patch patches/series

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jan 18 05:43:03 2008
New Revision: 12894

URL: http://svn.debian.org/wsvn/?sc=1&rev=12894
Log:
* add fix-UTF16-detection.patch based on a patch by Chris Adams to properly
  detect UTF-16 data in meta info.
  Closes: #461167 -- $pdf->info() metadata improperly handles Unicode strings

Added:
    trunk/libpdf-api2-perl/debian/patches/fix-UTF16-detection.patch
Modified:
    trunk/libpdf-api2-perl/debian/changelog
    trunk/libpdf-api2-perl/debian/patches/series

Modified: trunk/libpdf-api2-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/debian/changelog?rev=12894&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/debian/changelog (original)
+++ trunk/libpdf-api2-perl/debian/changelog Fri Jan 18 05:43:03 2008
@@ -1,6 +1,12 @@
 libpdf-api2-perl (0.68-2) UNRELEASED; urgency=low
 
+  [ gregor herrmann ]
   * debian/rules: delete /usr/lib/perl5 only if it exists.
+
+  [ Damyan Ivanov ]
+  * add fix-UTF16-detection.patch based on a patch by Chris Adams to properly
+    detect UTF-16 data in meta info.
+    Closes: #461167 -- $pdf->info() metadata improperly handles Unicode strings
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Wed, 09 Jan 2008 21:18:32 +0100
 

Added: trunk/libpdf-api2-perl/debian/patches/fix-UTF16-detection.patch
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/debian/patches/fix-UTF16-detection.patch?rev=12894&op=file
==============================================================================
--- trunk/libpdf-api2-perl/debian/patches/fix-UTF16-detection.patch (added)
+++ trunk/libpdf-api2-perl/debian/patches/fix-UTF16-detection.patch Fri Jan 18 05:43:03 2008
@@ -1,0 +1,25 @@
+# Fix UTF-16 detection in metadata
+# http://rt.cpan.org/Public/Bug/Display.html?id=32373
+# http://bugs.debian.org/461167
+Index: libpdf-api2-perl/lib/PDF/API2.pm
+===================================================================
+--- libpdf-api2-perl.orig/lib/PDF/API2.pm	2007-11-20 10:43:42.000000000 +0200
++++ libpdf-api2-perl/lib/PDF/API2.pm	2008-01-17 10:21:33.000000000 +0200
+@@ -615,15 +615,9 @@
+       foreach my $k (@{$self->{infoMeta}}) {
+         next unless(defined $self->{pdf}->{'Info'}->{$k});
+         $opt{$k}=$self->{pdf}->{'Info'}->{$k}->val;
+-        if(unpack('n',$opt{$k})==0xfffe) 
++        if((unpack('n',$opt{$k})==0xfffe) or (unpack('n',$opt{$k})==0xfeff)
+         {
+-            my ($mark, at c)=unpack('v*',$opt{$k});
+-            $opt{$k}=pack('U*', at c);
+-        } 
+-        elsif(unpack('n',$opt{$k})==0xfeff) 
+-        {
+-            my ($mark, at c)=unpack('n*',$opt{$k});
+-            $opt{$k}=pack('U*', at c);
++            $opt{$k} = decode('UTF-16', $opt{$k});
+         }
+       }
+   }

Modified: trunk/libpdf-api2-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/debian/patches/series?rev=12894&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/debian/patches/series (original)
+++ trunk/libpdf-api2-perl/debian/patches/series Fri Jan 18 05:43:03 2008
@@ -1,3 +1,4 @@
+fix-UTF16-detection.patch
 createmanpages.diff
 fix_manpage_NAMEs.patch
 fix_unmatched_back.patch