From c287b6cd287871b6ab7c55e9e2608bde024a5a79 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Sun, 11 Jul 2021 10:58:30 -0400
Subject: [PATCH] A previous attempt (in revision 193) to make the "lvs" script
 stop saying that pins were mismatched when pin matching was never run
 accidentally resulted in pin matching not being applied to black-box entries.
  This has been corrected.

---
 VERSION             | 2 +-
 tcltk/netgen.tcl.in | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/VERSION b/VERSION
index b6834e4..464347a 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.5.194
+1.5.195
diff --git a/tcltk/netgen.tcl.in b/tcltk/netgen.tcl.in
index fc87cae..ba20352 100644
--- a/tcltk/netgen.tcl.in
+++ b/tcltk/netgen.tcl.in
@@ -585,8 +585,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
                    netgen::log echo on
 	       }
 	    }
-	 } elseif {$uresult > 0} {
-	    # Match pins
+	 } else {
             netgen::log echo off
 	    if {$dolist == 1} {
 		set result [equate -list pins "$fnum1 [lindex $endval 0]" \
@@ -599,7 +598,11 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
 		equate classes "$fnum1 [lindex $endval 0]" \
 			 "$fnum2 [lindex $endval 1]"
 	    }
-	    set pinsgood $result
+	    # If $uresult == -1 then these are black-box entries and
+	    # $pinsgood should not be set to the resulting value.
+	    if {$uresult > 0} {
+	        set pinsgood $result
+	    }
             netgen::log echo on
 	 }
 	 if {$uresult == 2} {lappend properr [lindex $endval 0]}