Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: Perl: porters

[PATCH 2/2 FIXED] turn some quasi-declarations into real inline ones

 

 

Perl porters RSS feed   Index | Next | Previous | View Threaded


pagaltzis at gmx

May 15, 2012, 7:47 PM

Post #1 of 1 (71 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

Perl porters RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.