/usr/share/perl5/auto/PDF/Reuse/fillTheForm.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 | # 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 3846 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/fillTheForm.al)"
sub fillTheForm
{ my $left = shift || 0;
my $bottom = shift || 0;
my $right = shift || 0;
my $top = shift || 0;
my $how = shift || 1;
my $image = shift;
my $str;
my $scaleX = 1;
my $scaleY = 1;
my $xDim = $genUpperX - $genLowerX;
my $yDim = $genUpperY - $genLowerY;
my $xNy = $right - $left;
my $yNy = $top - $bottom;
$scaleX = $xDim / $xNy;
$scaleY = $yDim / $yNy;
if ($how == 1)
{ if ($scaleX < $scaleY)
{ $scaleY = $scaleX;
}
else
{ $scaleX = $scaleY;
}
}
$str = "$scaleX 0 0 $scaleY $left $bottom cm\n";
return $str;
}
# end of PDF::Reuse::fillTheForm
1;
|