From 4e0d6e418c086b69ff9110918107ff38deee1cbd Mon Sep 17 00:00:00 2001 From: Vlad Vissoultchev Date: Mon, 12 Sep 2016 17:19:31 +0300 Subject: [PATCH] REF: silence duplicate warning --- Src/mdUmmm.bas | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Src/mdUmmm.bas b/Src/mdUmmm.bas index b24763c..dfac345 100644 --- a/Src/mdUmmm.bas +++ b/Src/mdUmmm.bas @@ -3,10 +3,10 @@ Attribute VB_Name = "mdUmmm" ' $Header: /BuildTools/UMMM/Src/mdUmmm.bas 21 28.10.15 12:50 Wqw $ ' ' Unattended Make My Manifest Project -' Copyright (c) 2009-2015 wqweto@gmail.com +' Copyright (c) 2009-2016 wqweto@gmail.com ' ' $Log: /BuildTools/UMMM/Src/mdUmmm.bas $ -' +' ' 21 28.10.15 12:50 Wqw ' REF: deduplicate api progid too ' @@ -430,7 +430,9 @@ Private Function pvDumpClasses(sFile As String, sClasses As String, cOutput As C sVerIndProgID = .Parent.Name & "." & .Name End If End If - ConsolePrint "warning: coclass %1 GUID is duplicate of %2 (%3) in %4" & vbCrLf, sVerIndProgID, m_cClasses(.Guid)(0), .Guid, m_cClasses(.Guid)(1) + If LenB(sVerIndProgID) <> 0 Then + ConsolePrint "warning: coclass %1 GUID is duplicate of %2 (%3) in %4" & vbCrLf, sVerIndProgID, m_cClasses(.Guid)(0), .Guid, m_cClasses(.Guid)(1) + End If End If End With End If