From 5d44d60770727287ace4dbdb94e8565bb24b1bd2 Mon Sep 17 00:00:00 2001
From: Jens Luedicke <jens.luedicke@gmail.com>
Date: Sat, 9 Mar 2013 20:38:40 +0100
Subject: [PATCH] M: Renamed variable.

---
 lib/File/DirWalk.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/File/DirWalk.pm b/lib/File/DirWalk.pm
index 90d7806..eddef9d 100644
--- a/lib/File/DirWalk.pm
+++ b/lib/File/DirWalk.pm
@@ -37,7 +37,7 @@ sub new {
 	$self->{onDirLeave}  = sub { SUCCESS };
 
 	$self->{depth}       = 0;
-	$self->{depthCount}  = 0;
+	$self->{currentDepth}  = 0;
 
 	$self->{entryList}   = [];
 	$self->{count}       = 0;
@@ -100,7 +100,7 @@ sub getDepth {
 
 sub currentDepth {
 	my ($self) = @_;
-	return $self->{depthCount};
+	return $self->{currentDepth};
 }
 
 sub currentDir {
@@ -152,7 +152,7 @@ sub walk {
 	} elsif (-d $path) {
 
 		if ($self->{depth} != 0) {
-			if ($self->{depthCount} == $self->{depth}) {
+			if ($self->{currentDepth} == $self->{depth}) {
 				return SUCCESS;
 			}
 		}
@@ -161,7 +161,7 @@ sub walk {
 		$self->{entryList}    = [ no_upwards(readdir $dirh) ];
 		$self->{count}        = scalar @{$self->{entryList}};
 
-		++$self->{depthCount};
+		++$self->{currentDepth};
 		if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) {
 			return $r;
 		}
@@ -190,7 +190,7 @@ sub walk {
 		if ((my $r = $self->{onDirLeave}->($path)) != SUCCESS) {
 			return $r;
 		}
-		--$self->{depthCount};
+		--$self->{currentDepth};
 	} else {
 		if ((my $r = $self->{onFile}->($path)) != SUCCESS) {
 			return $r;