/usr/share/perl5/auto/PDF/Reuse/ordnaBookmarks.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 57 58 59 | # 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 3139 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/ordnaBookmarks.al)"
sub ordnaBookmarks
{ my ($first, $last, $me, $entry, $rad);
$totalCount = 0;
if (defined $objekt[$objNr])
{ $objNr++;
}
$me = $objNr;
my $number = $#bookmarks;
for (my $i = 0; $i <= $number ; $i++)
{ my %hash = %{$bookmarks[$i]};
$objNr++;
$hash{'this'} = $objNr;
if ($i == 0)
{ $first = $objNr;
}
if ($i == $number)
{ $last = $objNr;
}
if ($i < $number)
{ $hash{'next'} = $objNr + 1;
}
if ($i > 0)
{ $hash{'previous'} = $objNr - 1;
}
$bookmarks[$i] = \%hash;
}
for $entry (@bookmarks)
{ my %hash = %{$entry};
descend ($me, %hash);
}
$objekt[$me] = $pos;
$rad = "$me 0 obj<<";
$rad .= "/Type/Outlines";
$rad .= "/Count $totalCount";
if (defined $first)
{ $rad .= "/First $first 0 R";
}
if (defined $last)
{ $rad .= "/Last $last 0 R";
}
$rad .= ">>endobj\n";
$pos += syswrite UTFIL, $rad;
return $me;
}
# end of PDF::Reuse::ordnaBookmarks
1;
|