[otrs-cvs] otrs/Kernel/System/Web Request.pm,1.41,1.41.2.1

Comments:
Update of /home/cvs/otrs/Kernel/System/Web
In directory lancelot:/tmp/cvs-serv19893/Kernel/System/Web

Modified Files:
      Tag: rel-3_1
	Request.pm 
Log Message:
 - 2012-12-03 Fixed bug#8933 - ArticleStorageInit permission check problem.

Author: mg

Index: Request.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Web/Request.pm,v
retrieving revision 1.41
retrieving revision 1.41.2.1
diff -2 -u -d -r1.41 -r1.41.2.1
--- Request.pm	21 Nov 2011 10:20:47 -0000	1.41
+++ Request.pm	3 Dec 2012 11:42:02 -0000	1.41.2.1
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/Web/Request.pm - a wrapper for CGI.pm or Apache::Request.pm
-# Copyright (C) 2001-2011 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -15,4 +15,6 @@
 use warnings;
 
+use File::Path qw();
+
 use Kernel::System::CheckItem;
 
@@ -22,5 +24,5 @@
 =head1 NAME
 
-Kernel::System::Web::Request - global cgi param interface
+Kernel::System::Web::Request - global CGI interface
 
 =head1 SYNOPSIS
@@ -280,9 +282,9 @@
         my $Path = "/tmp/$$";
         if ( -d $Path ) {
-            File::Path::rmtree( [$Path] );
+            File::Path::remove_tree($Path);
         }
 
         # create upload dir
-        File::Path::mkpath( [$Path], 0, 0700 );
+        File::Path::make_path( $Path, { mode => 0700 } );
 
         $Content = "$Path/$NewFileName";
@@ -295,6 +297,5 @@
     }
 
-    # check if content is there, IE is always sending file uploades
-    # without content
+    # Check if content is there, IE is always sending file uploads without content.
     return if !$Content;
 
---------------------------------------------------------------------
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