fix memory leak in ptr vector and array

alib2std/src/extensions/ptr_array.hpp

@@ -207,20 +207,18 @@ public:
 	template < class R >
 	iterator set ( const_iterator pos, R && value ) {
-		m_data.at ( std::distance ( cbegin ( ), pos ) ) = ext::clone ( std::forward < R > ( value ) );
-		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
+		return set ( pos, ext::clone ( std::forward < R > ( value ) ) );
 	}
-	template < class R >
 	iterator set ( const_iterator pos, T * value ) {
+		delete m_data.at ( std::distance ( cbegin ( ), pos ) );
 		m_data.at ( std::distance ( cbegin ( ), pos ) ) = value ;
 		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
 	}
 	template < class R, class ... Args >
 	iterator emplace_set ( const_iterator pos, Args && ... args ) {
-		m_data.at ( std::distance ( cbegin ( ), pos ) ) = new R ( std::forward < Args > ( args ) ... ) ;
-		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
+		return set ( pos, new R ( std::forward < Args > ( args ) ... ) );
 	}
 	void swap ( ptr_array & other ) {

alib2std/src/extensions/ptr_vector.hpp

@@ -236,20 +236,18 @@ public:
 	template < class R >
 	iterator set ( const_iterator pos, R && value ) {
-		m_data.at ( std::distance ( cbegin ( ), pos ) ) = ext::clone ( std::forward < R > ( value ) );
-		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
+		return set ( pos, ext::clone ( std::forward < R > ( value ) ) );
 	}
-	template < class R >
 	iterator set ( const_iterator pos, T * value ) {
-		m_data.at ( std::distance ( cbegin ( ), pos ) ) = value ;
+		delete m_data.at ( std::distance ( cbegin ( ), pos ) );
+		m_data.at ( std::distance ( cbegin ( ), pos ) ) = value;
 		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
 	}
 	template < class R, class ... Args >
 	iterator emplace_set ( const_iterator pos, Args && ... args ) {
-		m_data.at ( std::distance ( cbegin ( ), pos ) ) = new R ( std::forward < Args > ( args ) ... ) ;
-		return dereferencer ( m_data.begin ( ) + std::distance ( cbegin ( ), pos ) );
+		return set ( pos, new R ( std::forward < R > ( args ) ... ) );
 	}
 	template < class R >