Lines Matching refs:my

7  my $sourcedir = catdir($config{sourcedir}, 'doc');
9  foreach my $section ((1, 3, 5, 7)) {
10      my @imagefiles = ();
11      my @htmlfiles = ();
12      my @manfiles = ();
13      my %pngfiles =
15      my %podfiles =
17      my %podinfiles =
21          (my $p = $_) =~ s|\.in$||i;
25      foreach my $p (sort keys %podfiles) {
26          my $podfile = abs2rel($p, $sourcedir);
27          my $podname = basename($podfile, '.pod');
28          my $podinfile = $podinfiles{"$p.in"} ? "$podfile.in" : undef;
30          my $podname = basename($podfile, ".pod");
32          my $htmlfile = abs2rel(catfile($buildtop, "doc", "html", "man$section",
35          my $manfile = abs2rel(catfile($buildtop, "doc", "man", "man$section",
69      foreach my $p (sort keys %pngfiles) {
70          my $relpath = abs2rel($p, $sourcedir);
71          my $imagefile = abs2rel(catfile($buildtop, "doc", "$relpath"),