/usr/share/perl5/auto/PDF/Reuse/kolla.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 | # 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 5195 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/kolla.al)"
sub kolla
{ #
# Resurser
#
my $obj = shift;
my $resources = shift;
my $valid;
if ($obj =~ m'MediaBox\s*\[\s*([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)'os)
{ $formBox[0] = $1;
$formBox[1] = $2;
$formBox[2] = $3;
$formBox[3] = $4;
}
if ($obj =~ m'/Contents\s+(\d+)'so)
{ $formCont = $1;
my $cObj = getObject($formCont, 1, 1);
if ($cObj =~ m'^\s*\[[^\]]+\]\s*$'os)
{ $valid = 0;
undef $formCont;
}
else
{ $valid = 1;
}
}
elsif ($obj =~ m'/Contents\s*\[\s*(\d+)\s{1,2}\d+\s{1,2}R\s*\]'so)
{ $formCont = $1;
$valid = 1;
}
if ($obj =~ m'^(.+/Resources)'so)
{ if ($obj =~ m'Resources(\s+\d+\s{1,2}\d+\s{1,2}R)'os) # Hänvisning
{ $resources = $1; }
else # Resurserna är ett dictionary. Hela kopieras
{ my $dummy;
my $i;
my $k;
undef $resources;
($dummy, $obj) = split /\/Resources/, $obj;
$obj =~ s/\<\</\#\<\</gs;
$obj =~ s/\>\>/\>\>\#/gs;
my @ord = split /\#/, $obj;
for ($i = 0; $i <= $#ord; $i++)
{ $resources .= $ord[$i];
if ($ord[$i] =~ m'\S+'s)
{ if ($ord[$i] =~ m'<<'s)
{ $k++; }
if ($ord[$i] =~ m'>>'s)
{ $k--; }
if ($k == 0)
{ last; }
}
}
}
}
return ($resources, $valid);
}
# end of PDF::Reuse::kolla
1;
|