diff options
| author | Dean Roehrich <roehrich@cray.com> | 1996-02-06 18:04:39 -0600 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-06 18:04:39 -0600 |
| commit | 7301ec2d97fd50b6d373cbd18cec2037f8286ffa (patch) | |
| tree | a3c077054698495e763fec91edcafb81d068eb5c | |
| parent | f716a1dd8e78fd29a728ad4e8781976804f9d620 (diff) | |
| download | perl-7301ec2d97fd50b6d373cbd18cec2037f8286ffa.tar.gz | |
beta3 File::Path warning fix
The following patch fixes a warning from File::Path. Apply over beta3.
| -rw-r--r-- | lib/File/Path.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 05c5bd9983..6cb675b683 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -120,7 +120,8 @@ sub mkpath{ sub rmtree { my($roots, $verbose, $safe) = @_; - my(@files,$count); + my(@files); + my($count) = 0; $roots = [$roots] unless ref $roots; foreach $root (@{$roots}) { |