From a226a0546a8455646769170fb5c891394148e5a6 Mon Sep 17 00:00:00 2001
From: "yanick@babyl.dyndns.org" <yanick@babyl.dyndns.org>
Date: Wed, 23 Jul 2008 23:07:33 -0400
Subject: [PATCH] checking for a directory, not a file

Signed-off-by: Yanick Champoux <yanick@babyl.dyndns.org>
---
 lib/CIL.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lib/CIL.pm b/lib/CIL.pm
index 732393a..42451a2 100644
--- a/lib/CIL.pm
+++ b/lib/CIL.pm
@@ -326,13 +326,12 @@ sub file_exists {
 }
 
 sub dir_exists {
-    my ($self, $filename) = @_;
-    if ( $self->vcs_revision ) {
-	$self->vcs->dir_exists($self->vcs_revision, $filename);
-    }
-    else {
-	-f $filename;
-    }
+    my ($self, $dir) = @_;
+
+    return $self->vcs_revision 
+            ? $self->vcs->dir_exists($self->vcs_revision, $dir)
+            : -d $dir
+            ;
 }
 
 sub parse_cil_file {
-- 
2.39.5