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});