[libpdf-api2-perl] 02/02: releasing package libpdf-api2-perl version 2.025-2

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libpdf-api2-perl.

commit 0500bcbfc8b66a6f0218d773fc3b2149a8aab9db
Author: Damyan Ivanov <dmn at debian.org>
Date:   Wed Mar 16 13:31:42 2016 +0000

    releasing package libpdf-api2-perl version 2.025-2
---
 debian/changelog                          | 12 ++++++++++--
 lib/PDF/API2/Resource/CIDFont/TrueType.pm |  4 ++--
 lib/PDF/API2/Resource/Font/BdFont.pm      |  4 ++--
 lib/PDF/API2/Resource/Font/CoreFont.pm    |  2 +-
 lib/PDF/API2/Resource/Font/Postscript.pm  |  4 ++--
 5 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 83d8e41..603204b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,8 +1,16 @@
-libpdf-api2-perl (2.025-2) UNRELEASED; urgency=medium
+libpdf-api2-perl (2.025-2) unstable; urgency=medium
 
+  * Team upload
+
+  [ Salvatore Bonaccorso ]
   * debian/control: Use HTTPS transport protocol for Vcs-Git URI
 
- -- Salvatore Bonaccorso <carnil at debian.org>  Sat, 30 Jan 2016 20:06:04 +0100
+  [ Damyan Ivanov ]
+  * Add patch removing current timestamp from font IDs to improve
+    reproducibility
+    (Closes: #818363)
+
+ -- Damyan Ivanov <dmn at debian.org>  Wed, 16 Mar 2016 13:29:34 +0000
 
 libpdf-api2-perl (2.025-1) unstable; urgency=medium
 
diff --git a/lib/PDF/API2/Resource/CIDFont/TrueType.pm b/lib/PDF/API2/Resource/CIDFont/TrueType.pm
index 578abae..4496aaf 100644
--- a/lib/PDF/API2/Resource/CIDFont/TrueType.pm
+++ b/lib/PDF/API2/Resource/CIDFont/TrueType.pm
@@ -38,7 +38,7 @@ sub new {
     my ($ff,$data)=PDF::API2::Resource::CIDFont::TrueType::FontFile->new($pdf,$file, at opts);
 
     $class = ref $class if ref $class;
-    my $self=$class->SUPER::new($pdf,$data->{apiname}.pdfkey().'~'.time());
+    my $self=$class->SUPER::new($pdf,$data->{apiname}.pdfkey());
     $pdf->new_obj($self) if(defined($pdf) && !$self->is_obj($pdf));
 
     $self->{' data'}=$data;
@@ -51,7 +51,7 @@ sub new {
 
     $de->{'FontDescriptor'} = $des;
     $de->{'Subtype'} = PDFName($self->iscff ? 'CIDFontType0' : 'CIDFontType2');
-    ## $de->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname).'~'.time());
+    ## $de->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname));
     $de->{'BaseFont'} = PDFName($self->fontname);
     $de->{'DW'} = PDFNum($self->missingwidth);
     if($opts{-noembed} != 1)
diff --git a/lib/PDF/API2/Resource/Font/BdFont.pm b/lib/PDF/API2/Resource/Font/BdFont.pm
index 93fa224..7644e6c 100644
--- a/lib/PDF/API2/Resource/Font/BdFont.pm
+++ b/lib/PDF/API2/Resource/Font/BdFont.pm
@@ -56,7 +56,7 @@ sub new {
     my %opts=@opts;
 
     $class = ref $class if ref $class;
-    $self = $class->SUPER::new($pdf, sprintf('%s+Bdf%02i',pdfkey(),++$BmpNum).'~'.time());
+    $self = $class->SUPER::new($pdf, sprintf('%s+Bdf%02i',pdfkey(),++$BmpNum));
     $pdf->new_obj($self) unless($self->is_obj($pdf));
 
     # adobe bitmap distribution font
@@ -202,7 +202,7 @@ sub readBDF {
         $data->{bbox}{'.notdef'} = [0, 0, 0, 0];
     }
 
-    $data->{fontname}=pdfkey().pdfkey().'~'.time();
+    $data->{fontname}=pdfkey();
     $data->{apiname}=$data->{fontname};
     $data->{flags} = 34;
     $data->{fontbbox} = [ split(/\s+/,$data->{FONTBOUNDINGBOX}) ];
diff --git a/lib/PDF/API2/Resource/Font/CoreFont.pm b/lib/PDF/API2/Resource/Font/CoreFont.pm
index e2c747f..14819e5 100644
--- a/lib/PDF/API2/Resource/Font/CoreFont.pm
+++ b/lib/PDF/API2/Resource/Font/CoreFont.pm
@@ -164,7 +164,7 @@ sub new
     #}
     
     $class = ref $class if ref $class;
-    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey().'~'.time());
+    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey());
     $pdf->new_obj($self) unless($self->is_obj($pdf));
     $self->{' data'}=$data;
     $self->{-dokern}=1 if($opts{-dokern});
diff --git a/lib/PDF/API2/Resource/Font/Postscript.pm b/lib/PDF/API2/Resource/Font/Postscript.pm
index 25455a3..3754cba 100644
--- a/lib/PDF/API2/Resource/Font/Postscript.pm
+++ b/lib/PDF/API2/Resource/Font/Postscript.pm
@@ -28,7 +28,7 @@ sub new {
     }
 
     $class = ref $class if ref $class;
-    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey().'~'.time());
+    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey());
     $pdf->new_obj($self) unless($self->is_obj($pdf));
     $self->{' data'}=$data;
 
@@ -40,7 +40,7 @@ sub new {
     $self->{'FontDescriptor'}=$self->descrByData();
     if(-f $psfile)
     {
-        $self->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname).'~'.time());
+        $self->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname));
 
         my ($l1,$l2,$l3,$stream)=$self->readPFAPFB($psfile);
 

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