From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 20:16:59 +0000 (+0100)
Subject: where-vessels: fix up have-ownership
X-Git-Tag: 6.6.2~3
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=2c97dc028281b715f42af6d1f9bd549be85ffadf

where-vessels: fix up have-ownership
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 99929db..da64801 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -136,6 +136,7 @@ proc have-notes {} {
     return [string length $notes_loc]
 }
 proc have-ownership {} {
+    global pirate
     return [expr {[have-notes] && [string length $pirate]}]
 }