Merge branch 'ptrack' of git.postgrespro.ru:pgpro-dev/pg_probackup into ptrack

Author: alubennikova

data.c

@@ -92,9 +92,9 @@ backup_data_page(pgFile *file, const XLogRecPtr *lsn,
 		}
 
 		/*
-			* If an invalid data page was found, fallback to simple copy to ensure
-			* all pages in the file don't have BackupPageHeader.
-			*/
+		* If an invalid data page was found, fallback to simple copy to ensure
+		* all pages in the file don't have BackupPageHeader.
+		*/
 		if (!parse_page(&page, &page_lsn))
 		{
 			int i;
@@ -234,9 +234,6 @@ backup_data_file(const char *from_root, const char *to_root,
 			 to_path, strerror(errno_tmp));
 	}
 
-	/* confirm server version */
-	check_server_version();
-
 	/*
 	 * Read each page, verify checksum and write it to backup.
 	 * If page map is not empty we scan only these blocks, otherwise

delete.c

@@ -139,7 +139,7 @@ do_deletewal(time_t backup_id, bool strict)
 	parray_walk(backup_list, pgBackupFree);
 	parray_free(backup_list);
 
-	delete_walfiles(oldest_lsn, oldest_tli, false);
+	delete_walfiles(oldest_lsn, oldest_tli, true);
 
 	return 0;
 }
@@ -349,10 +349,11 @@ delete_walfiles(XLogRecPtr oldest_lsn, TimeLineID oldest_tli, bool delete_all)
 			 * they were originally written, in case this worries you.
 			 */
 			if (IsXLogFileName(arcde->d_name) ||
-				IsPartialXLogFileName(arcde->d_name))
+				IsPartialXLogFileName(arcde->d_name) ||
+				IsBackupHistoryFileName(arcde->d_name))
 			{
 				if (XLogRecPtrIsInvalid(oldest_lsn) ||
-					strcmp(arcde->d_name + 8, oldestSegmentNeeded + 8) < 0)
+					strncmp(arcde->d_name + 8, oldestSegmentNeeded + 8, 16) < 0)
 				{
 					/*
 					 * Use the original file name again now, including any