[Scummvm-git-logs] scummvm master -> d0a7029131ee1b9ed2ea1d3ca1d0545cff13d2e4

[SupSuper]

This automated email contains information about 1 new commit which have been
pushed to the 'scummvm' repo located at https://github.com/scummvm/scummvm .

Summary:
d0a7029131 MSVC: Fix missing internal_revision.h on clean builds


Commit: d0a7029131ee1b9ed2ea1d3ca1d0545cff13d2e4
    https://github.com/scummvm/scummvm/commit/d0a7029131ee1b9ed2ea1d3ca1d0545cff13d2e4
Author: SupSuper (supsuper at gmail.com)
Date: 2019-10-12T22:57:46+01:00

Commit Message:
MSVC: Fix missing internal_revision.h on clean builds

Can't compare with a file that doesn't exist

Changed paths:
    devtools/create_project/scripts/revision.vbs


diff --git a/devtools/create_project/scripts/revision.vbs b/devtools/create_project/scripts/revision.vbs
index 47eff42..7f0655d 100644
--- a/devtools/create_project/scripts/revision.vbs
+++ b/devtools/create_project/scripts/revision.vbs
@@ -489,12 +489,16 @@ Sub CompareFileAndReplace(src_filename, dst_filename)
 	Set file = FSO.OpenTextFile(src_filename, 1, 0, 0)
 	src_data = file.ReadAll
 	file.Close
-	Set file = FSO.OpenTextFile(dst_filename, 1, 0, 0)
-	dst_data = file.ReadAll
-	file.Close
-	If StrComp(src_data, dst_data, vbBinaryCompare) <> 0 Then
-		' Files are different, overwrite the destination
+	If Not FSO.FileExists(dst_filename) Then
 		FSO.CopyFile src_filename, dst_filename, True
+	Else
+		Set file = FSO.OpenTextFile(dst_filename, 1, 0, 0)
+		dst_data = file.ReadAll
+		file.Close
+		If StrComp(src_data, dst_data, vbBinaryCompare) <> 0 Then
+			' Files are different, overwrite the destination
+			FSO.CopyFile src_filename, dst_filename, True
+		End If
 	End If
 	' Remove temporary source
 	FSO.DeleteFile src_filename