/usr/share/perl5/auto/PDF/Reuse/checkResources.al is in libpdf-reuse-perl 0.35-2.
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 | # 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 6372 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/checkResources.al)"
sub checkResources
{ my $pObj = shift;
my $reStr = shift;
my $to;
my $p = index($pObj, '/Resources');
if ( $p < 0)
{ ;
}
elsif ($pObj =~ m'/Resources(\s+\d+\s{1,2}\d+\s{1,2}R)'os)
{ $reStr = $1;
$to = $p + 10 + length($reStr);
}
else
{ my $t = length($pObj);
my $i = $p + 10;
my $j = $i;
my $k = 0;
my $c;
while ($i < $t)
{ $c = substr($pObj,$i,1);
if (($c eq '<' )
|| ($c eq '>'))
{ if ($c eq '<' )
{ $k++;
}
else
{ $k--;
}
last if ($k == 0);
}
$i++;
}
if ($i != $t)
{ $i++;
$reStr = substr($pObj, $j, ($i - $j));
$to = $i;
}
}
if (wantarray)
{ return ($reStr, $p, $to);
}
else
{ return $reStr;
}
}
# end of PDF::Reuse::checkResources
1;
|