UseModWiki소스수정/CreateDir함수

CreateDir 함수 개선

• 디렉토리를 생성하는 함수인데, 생성에 실패하는 경우 그냥 리턴해 버리기 때문에, 나중에 엉뚱한 곳에서 에러를 내게 되는 문제가 있다.
• 디렉토리를 생성하는 데 실패하는 경우 별도로 에러 메세지를 출력하도록 하였다.

sub CreateDir {
    my ($newdir) = @_;

###############
### replaced by gypark
### 디렉토리 생성에 실패할 경우 에러 출력
#   mkdir($newdir, 0775)  if (!(-d $newdir));
    if (!(-d $newdir)) {
        mkdir($newdir, 0775) or die(Ts('cant create directory %s', $newdir) . ": $!");
    }
###
###############
}