chiark / gitweb /
where-vessels: fix up have-ownership
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 20:16:59 +0000 (21:16 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 20:16:59 +0000 (21:16 +0100)
yarrg/where-vessels

index 99929db..da64801 100755 (executable)
@@ -136,6 +136,7 @@ proc have-notes {} {
     return [string length $notes_loc]
 }
 proc have-ownership {} {
+    global pirate
     return [expr {[have-notes] && [string length $pirate]}]
 }