diff options
| author | Aristotle Pagaltzis <pagaltzis@gmx.de> | 2012-05-16 04:47:29 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-26 11:50:17 -0700 |
| commit | 8de3880f558aa119a83ded6d8ccaaba20d587030 (patch) | |
| tree | ef61922e9bd68a77e1a9c8da289d14ff9508a9ad /installhtml | |
| parent | b1124ff0a4329772bd7fea18b2433d6fa39caa3d (diff) | |
| download | perl-8de3880f558aa119a83ded6d8ccaaba20d587030.tar.gz | |
turn some quasi-declarations into real inline ones
Diffstat (limited to 'installhtml')
| -rw-r--r-- | installhtml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/installhtml b/installhtml index d13c555585..396e78a24f 100644 --- a/installhtml +++ b/installhtml @@ -485,14 +485,13 @@ sub splitpod { # sub installdir { my($dir, $recurse, $podroot, $splitdirs, $ignore) = @_; - my(@dirlist, @podlist, @pmlist, $doindex); - @dirlist = (); # directories to recurse on - @podlist = (); # .pod files to install - @pmlist = (); # .pm files to install + my @dirlist; # directories to recurse on + my @podlist; # .pod files to install + my @pmlist; # .pm files to install # should files in this directory get an index? - $doindex = (grep($_ eq "$podroot/$dir", @$splitdirs) ? 0 : 1); + my $doindex = (grep($_ eq "$podroot/$dir", @$splitdirs) ? 0 : 1); opendir(DIR, "$podroot/$dir") || die "$0: error opening directory $podroot/$dir: $!\n"; |