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

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

commit b045037cd21d21f68f36dea6c8d12b6c8c2363ae
Author: gregor herrmann <gre...@debian.org>
Date:   Mon Oct 31 00:45:27 2016 +0100

    unapply our patch in git
    
    Gbp-Dch: Ignore
---
 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 ++--
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/PDF/API2/Resource/CIDFont/TrueType.pm 
b/lib/PDF/API2/Resource/CIDFont/TrueType.pm
index d8546c6..696b7fb 100644
--- a/lib/PDF/API2/Resource/CIDFont/TrueType.pm
+++ b/lib/PDF/API2/Resource/CIDFont/TrueType.pm
@@ -39,7 +39,7 @@ sub new {
     my 
($ff,$data)=PDF::API2::Resource::CIDFont::TrueType::FontFile->new($pdf,$file,@opts);
 
     $class = ref $class if ref $class;
-    my $self=$class->SUPER::new($pdf,$data->{apiname}.pdfkey());
+    my $self=$class->SUPER::new($pdf,$data->{apiname}.pdfkey().'~'.time());
     $pdf->new_obj($self) if(defined($pdf) && !$self->is_obj($pdf));
 
     $self->{' data'}=$data;
@@ -52,7 +52,7 @@ sub new {
 
     $de->{'FontDescriptor'} = $des;
     $de->{'Subtype'} = PDFName($self->iscff ? 'CIDFontType0' : 'CIDFontType2');
-    ## $de->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname));
+    ## $de->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname).'~'.time());
     $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 cd8e401..7169611 100644
--- a/lib/PDF/API2/Resource/Font/BdFont.pm
+++ b/lib/PDF/API2/Resource/Font/BdFont.pm
@@ -57,7 +57,7 @@ sub new {
     my %opts=@opts;
 
     $class = ref $class if ref $class;
-    $self = $class->SUPER::new($pdf, sprintf('%s+Bdf%02i',pdfkey(),++$BmpNum));
+    $self = $class->SUPER::new($pdf, 
sprintf('%s+Bdf%02i',pdfkey(),++$BmpNum).'~'.time());
     $pdf->new_obj($self) unless($self->is_obj($pdf));
 
     # adobe bitmap distribution font
@@ -203,7 +203,7 @@ sub readBDF {
         $data->{bbox}{'.notdef'} = [0, 0, 0, 0];
     }
 
-    $data->{fontname}=pdfkey();
+    $data->{fontname}=pdfkey().pdfkey().'~'.time();
     $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 4a2e0cc..ff862e3 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());
+    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey().'~'.time());
     $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 9a6506a..2c0145e 100644
--- a/lib/PDF/API2/Resource/Font/Postscript.pm
+++ b/lib/PDF/API2/Resource/Font/Postscript.pm
@@ -29,7 +29,7 @@ sub new {
     }
 
     $class = ref $class if ref $class;
-    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey());
+    $self = $class->SUPER::new($pdf, $data->{apiname}.pdfkey().'~'.time());
     $pdf->new_obj($self) unless($self->is_obj($pdf));
     $self->{' data'}=$data;
 
@@ -41,7 +41,7 @@ sub new {
     $self->{'FontDescriptor'}=$self->descrByData();
     if(-f $psfile)
     {
-        $self->{'BaseFont'} = PDFName(pdfkey().'+'.($self->fontname));
+        $self->{'BaseFont'} = 
PDFName(pdfkey().'+'.($self->fontname).'~'.time());
 
         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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to