[libpdf-api2-perl] 01/02: Add 739943-fix-FTBFS.patch patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch wheezy
in repository libpdf-api2-perl.

commit 3ea854f3fa80f6f4166798e4f663e308930ee855
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Mon Feb 24 16:46:17 2014 +0100

    Add 739943-fix-FTBFS.patch patch
    
    Fixes "FTBFS in stable". The patch sorts dictionary keys during PDF
    output for predictability.
    
    Thanks: Moritz Mühlenhoff
    Closes: #739943
---
 debian/patches/739943-fix-FTBFS.patch | 51 +++++++++++++++++++++++++++++++++++
 debian/patches/series                 |  1 +
 2 files changed, 52 insertions(+)

diff --git a/debian/patches/739943-fix-FTBFS.patch b/debian/patches/739943-fix-FTBFS.patch
new file mode 100644
index 0000000..2720847
--- /dev/null
+++ b/debian/patches/739943-fix-FTBFS.patch
@@ -0,0 +1,51 @@
+Description: Sort dictionary keys during PDF output, for predictability
+Origin: upstream, https://bitbucket.org/ssimms/pdfapi2/commits/2885c70ebf0fc8a7ea3e2f608e398b7de5f53860
+Bug-Debian: http://bugs.debian.org/739943
+Forwarded: not-needed
+Last-Update: 2014-02-24
+Applied-Upstream: 2.020
+
+diff --git a/lib/PDF/API2/Basic/PDF/Dict.pm b/lib/PDF/API2/Basic/PDF/Dict.pm
+--- a/lib/PDF/API2/Basic/PDF/Dict.pm
++++ b/lib/PDF/API2/Basic/PDF/Dict.pm
+@@ -122,8 +122,8 @@
+             $fh->print(" ");
+         }
+     }
+-    while (($key, $val) = each %{$self})
+-    {
++    foreach $key (sort keys %$self) {
++        $val = $self->{$key};
+         next if ($key =~ m/^[\s\-]/o || $specs{$key});
+         next if (($val || '') eq '');
+         $key = PDF::API2::Basic::PDF::Name::string_to_name ($key, $pdf);
+diff --git a/t/annotate.t b/t/annotate.t
+--- a/t/annotate.t
++++ b/t/annotate.t
+@@ -18,5 +18,5 @@
+ # why the Contents section doesn't just have the simple text.  I think
+ # it would be better to only use UTF-8 when necessary.
+ like($pdf->stringify(),
+-     qr{/Annot /Subtype /Text /Rect \[ 72 144 172 244 \] /Contents <FEFF005400680069007300200069007300200061006E00200061006E006E006F0074006100740069006F006E>},
++     qr{/Annot /Subtype /Text /Border \[ 0 0 0 \] /Contents <FEFF005400680069007300200069007300200061006E00200061006E006E006F0074006100740069006F006E> /Rect \[ 72 144 172 244 \]},
+      q{Text Annotation in a rectangle});
+diff --git a/t/outline.t b/t/outline.t
+--- a/t/outline.t
++++ b/t/outline.t
+@@ -15,5 +15,5 @@
+ $outline->title('Test Outline');
+ $outline->dest($page2);
+ 
+-like($pdf->stringify, qr{/Dest \[ 6 0 R /XYZ null null null \] /Title \(Test Outline\) /Parent 7 0 R},
++like($pdf->stringify, qr{/Dest \[ 6 0 R /XYZ null null null \] /Parent 7 0 R /Title \(Test Outline\)},
+      q{Basic outline test});
+diff --git a/t/pdf.t b/t/pdf.t
+--- a/t/pdf.t
++++ b/t/pdf.t
+@@ -97,6 +97,6 @@
+ $pdf = PDF::API2->new();
+ $pdf->{'forcecompress'} = 0;
+ $pdf->pageLabel(0, { -prefix => 'Test' });
+-like($pdf->stringify(), qr{/PageLabels << /Nums \[ 0 << /S /D /P \(Test\) >> \] >>},
++like($pdf->stringify(), qr{/PageLabels << /Nums \[ 0 << /P \(Test\) /S /D >> \] >>},
+      q{Page Numbering: Decimal Characters (implicit), with prefix});
diff --git a/debian/patches/series b/debian/patches/series
index f211f38..ea8128e 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-whatis.patch
+739943-fix-FTBFS.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libpdf-api2-perl.git