From 2c97dc028281b715f42af6d1f9bd549be85ffadf Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 21:16:59 +0100
Subject: [PATCH] where-vessels: fix up have-ownership

---
 yarrg/where-vessels | 1 +
 1 file changed, 1 insertion(+)

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]}]
 }
 
-- 
2.30.2