ChangeLogTag: Thu Mar 31 06:53:14 2005 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 16 insertions, 0 deletions

diff --git a/modules/WinProjectBase.pm b/modules/WinProjectBase.pm
index 6f0db62a..b690a82f 100644
--- a/modules/WinProjectBase.pm
+++ b/modules/WinProjectBase.pm
@@ -16,6 +16,22 @@ use strict;
 # Subroutine Section
 # ************************************************************
 
+sub validated_directory {
+  my($self) = shift;
+  my($dir)  = shift;
+
+  ## $(...) could contain a drive letter and Windows can not
+  ## make a directory that resembles a drive letter.  So, we have
+  ## to exclude those directories with $(...).
+  if ($dir =~ /\$\([^\)]+\)/) {
+    return '.';
+  }
+  else {
+    return $dir;
+  }
+}
+
+
 sub crlf {
   my($self) = shift;
   return $self->windows_crlf();