corrected error message in dir_create

git-svn-id: http://biopieces.googlecode.com/svn/trunk@715 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Filesys.pm b/code_perl/Maasha/Filesys.pm
index 403306496955e9416fb6c1864f06dd0fb286b6a0..ad6259bd988f6999b941c64fd289c267c7c6c606 100644 (file)
--- a/code_perl/Maasha/Filesys.pm
+++ b/code_perl/Maasha/Filesys.pm
@@ -324,7 +324,7 @@ sub dir_create
     # Returns nothing.
 
     if ( -d $path ) {
-        Maasha::Common::error( qq(Directory already exists "$path": $!) );
+        Maasha::Common::error( qq(Directory already exists "$path") );
     } else {
         mkdir $path or Maasha::Common::error( qq(Could not create directory "$path": $!) );
     }