[otrs-cvs] otrs/Kernel/System/VirtualFS FS.pm,1.2.6.2,1.2.6.3

Comments:
Update of /home/cvs/otrs/Kernel/System/VirtualFS
In directory lancelot:/tmp/cvs-serv22571/Kernel/System/VirtualFS

Modified Files:
      Tag: rel-3_1
	FS.pm 
Log Message:
Simplified and improved file check implementation.

Author: mg

Index: FS.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/VirtualFS/FS.pm,v
retrieving revision 1.2.6.2
retrieving revision 1.2.6.3
diff -2 -u -d -r1.2.6.2 -r1.2.6.3
--- FS.pm	3 Dec 2012 12:43:36 -0000	1.2.6.2
+++ FS.pm	3 Dec 2012 13:28:18 -0000	1.2.6.3
@@ -15,5 +15,4 @@
 use warnings;
 
-use File::Path qw();
 use Time::HiRes qw();
 
@@ -40,4 +39,9 @@
     $Self->{Permission} = '664';
 
+    # create data dir
+    if ( !-d $Self->{DataDir} ) {
+        mkdir $Self->{DataDir} || die $!;
+    }
+
     # Check fs write permissions.
     # Generate a thread-safe article check directory.
@@ -47,5 +51,5 @@
     my $Path = "$Self->{DataDir}/$PermissionCheckDirectory";
 
-    if ( File::Path::make_path( $Path, { mode => 0755 } ) ) {
+    if ( mkdir( $Path, 0755 ) ) {
         rmdir $Path;
     }
@@ -59,9 +63,4 @@
     }
 
-    # create data dir
-    if ( !-d $Self->{DataDir} ) {
-        mkdir $Self->{DataDir} || die $!;
-    }
-
     # config (not used right now)
     $Self->{Compress} = 0;
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log