turn some quasi-declarations into real inline ones
authorAristotle Pagaltzis <pagaltzis@gmx.de>
Wed, 16 May 2012 02:47:29 +0000 (04:47 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 26 May 2012 18:50:17 +0000 (11:50 -0700)
installhtml

index d13c555..396e78a 100644 (file)
@@ -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";