checking for a directory, not a file

Signed-off-by: Yanick Champoux <yanick@babyl.dyndns.org>

diff --git a/lib/CIL.pm b/lib/CIL.pm
index 732393ad754349ad424f8a245831b4991b82694a..42451a26f8933f9c799d2f6bfcd1e4e849fc8b95 100644 (file)
--- 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 {