Front page | perl.perl5.porters |
Postings from May 2012
---
installhtml | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/installhtml b/installhtml
index d13c555..c09cd64 100644
--- a/installhtml
+++ b/installhtml
@@ -485,11 +485,11 @@ sub splitpod {
#
sub installdir {
my($dir, $recurse, $podroot, $splitdirs, $ignore) = @_;
- my(@dirlist, @podlist, @pmlist, $doindex);
+ my $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);
--
1.7.4.1
Thread Previous
|
Thread Next