/usr/share/perl5/auto/PDF/Reuse/getImage.al is in libpdf-reuse-perl 0.39-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | # NOTE: Derived from blib/lib/PDF/Reuse.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package PDF::Reuse;
#line 5413 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/getImage.al)"
##################
# En bild läses
##################
sub getImage
{ my ($infil, $sidnr, $bildnr, $key) = @_;
if (! defined $key)
{ errLog("Can't find image $bildnr on page $sidnr in file $infil, aborts");
}
@skapa = ();
my ($res, $corr, $nyDel1, $del1, $del2, $nr, $utrad);
my $fSource = $infil . '_' . $sidnr;
my $iSource = $fSource . '_' . $bildnr;
$behandlad{$infil}->{old} = {}
unless (defined $behandlad{$infil}->{old});
$processed{$infil}->{oldObject} = {}
unless (defined $processed{$infil}->{oldObject});
$processed{$infil}->{unZipped} = {}
unless (defined $processed{$infil}->{unZipped});
*old = $behandlad{$infil}->{old};
*oldObject = $processed{$infil}->{oldObject};
*unZipped = $processed{$infil}->{unZipped};
my @stati = stat($infil);
if ($form{$fSource}[fID] != $stati[9])
{ errLog("$stati[9] ne $form{$fSource}[fID], modification time has changed, aborting");
}
if (exists $old{$key})
{ return $old{$key};
}
open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, $!");
binmode INFIL;
#########################################################
# En bild med referenser kopieras, behandlas och skrivs
#########################################################
$nr = ++$objNr;
$old{$key} = $nr;
$objekt[$nr] = $pos;
($del1, $del2) = getKnown(\$form{$fSource}, $key);
$$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
if (defined $$del2)
{ $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
}
else
{ $utrad = "$nr 0 obj " . $$del1;
}
$pos += syswrite UTFIL, $utrad;
##################################
# Skriv ut underordnade objekt
##################################
while (scalar @skapa)
{ my @process = @skapa;
@skapa = ();
for (@process)
{ my $gammal = $$_[0];
my $ny = $$_[1];
($del1, $del2) = getKnown(\$form{$fSource}, $gammal);
$$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
if (defined $$del2)
{ $utrad = "$ny 0 obj\n<<" . $$del1 . $$del2;
}
else
{ $utrad = "$ny 0 obj " . $$del1;
}
$objekt[$ny] = $pos;
$pos += syswrite UTFIL, $utrad;
}
}
close INFIL;
return $nr;
}
# end of PDF::Reuse::getImage
1;
|