From 50f0ebf9878f3d4ca3c84b0dcb953a727f703f43 Mon Sep 17 00:00:00 2001
From: David Rose <david@ddrose.com>
Date: Wed, 22 Sep 2004 23:09:49 +0000
Subject: [PATCH] squawk if attached to wrong DIRECT

---
 direct/Package.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/direct/Package.pp b/direct/Package.pp
index 6aee0aed85..ab625e235d 100644
--- a/direct/Package.pp
+++ b/direct/Package.pp
@@ -40,6 +40,9 @@
   #if $[eq $[DIRECT],]
     #error You seem to be attached to some trees, but not DIRECT!
   #endif
+  #if $[ne $[canonical $[DIRECT]], $[canonical $[TOPDIR]]]
+    #error You are not attached to the right DIRECT!
+  #endif
 #else
   #defer DIRECT_INSTALL $[unixfilename $[INSTALL_DIR]]
   #defer DIRECT_INSTALL_OTHER $[unixfilename $[INSTALL_DIR]]