Index: branches/5.2.x/core/units/helpers/skin_helper.php
===================================================================
diff -u -N -r14628 -r14699
--- branches/5.2.x/core/units/helpers/skin_helper.php	(.../skin_helper.php)	(revision 14628)
+++ branches/5.2.x/core/units/helpers/skin_helper.php	(.../skin_helper.php)	(revision 14699)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: skin_helper.php 14628 2011-10-04 09:36:30Z alex $
+* @version	$Id: skin_helper.php 14699 2011-10-26 11:39:38Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -17,6 +17,11 @@
 	class SkinHelper extends kHelper {
 
 		/**
+		 * Regular expression, used to detect admin skin file among others
+		 */
+		const SKIN_REGEXP = '/admin-(.*)-([\d]+).css/';
+
+		/**
 		 * Allows to read some skin fields and build link to admin skin file.
 		 * Will automatically compile skin file, when missing.
 		 *
@@ -201,18 +206,22 @@
 		function _getLastCompiled($style_name)
 		{
 			$last_compiled = 0;
-			$dh = dir($this->_getStylesheetPath() . DIRECTORY_SEPARATOR);
 
-			while (false !== ($file = $dh->read())) {
-				if ( preg_match('/admin-(.*)-([\d]+).css/', $file, $rets) ) {
-					if ($rets[1] == $style_name && $rets[2] > $last_compiled) {
-						$last_compiled = $rets[2];
-					}
+			$iterator = new DirectoryIterator( $this->_getStylesheetPath() . DIRECTORY_SEPARATOR );
+			/* @var $file_info DirectoryIterator */
+
+			foreach ($iterator as $file_info) {
+				if ( !$file_info->isFile() ) {
+					continue;
 				}
-			}
 
-			$dh->close();
+				$regs = $this->isSkinFile( $file_info->getFilename() );
 
+				if ( $regs && $regs[1] == $style_name && $regs[2] > $last_compiled ) {
+					$last_compiled = max($last_compiled, $regs[2]);
+				}
+			}
+
 			return $last_compiled;
 		}
 
@@ -222,14 +231,29 @@
 		 */
 		function deleteCompiled()
 		{
-			$dh = dir($this->_getStylesheetPath() . DIRECTORY_SEPARATOR);
+			$iterator = new DirectoryIterator( $this->_getStylesheetPath() . DIRECTORY_SEPARATOR );
+			/* @var $file_info DirectoryIterator */
 
-			while (false !== ($file = $dh->read())) {
-				if ( preg_match('/admin-(.*)-([\d]+).css/', $file, $rets) ) {
-					unlink($dh->path . $file);
+			foreach ($iterator as $file_info) {
+				if ( $file_info->isFile() && $this->isSkinFile( $file_info->getFilename() ) ) {
+					unlink( $file_info->getPathname() );
 				}
 			}
+		}
 
-			$dh->close();
+		/**
+		 * Determines if given file is admin skin file
+		 *
+		 * @param string $filename
+		 * @return array|bool
+		 * @access protected
+		 */
+		protected function isSkinFile($filename)
+		{
+			if ( preg_match(self::SKIN_REGEXP, $filename, $regs) ) {
+				return $regs;
+			}
+
+			return false;
 		}
 	}
\ No newline at end of file