pagaltzis at gmx
May 15, 2012, 7:47 PM
Post #1 of 1
(39 views)
Permalink
|
|
[PATCH 2/2 FIXED] turn some quasi-declarations into real inline ones
|
|
---
installhtml | 9 ++++-----
1 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/installhtml b/installhtml
index d13c555..396e78a 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";
--
1.7.4.1
|
