瀏覽代碼

squawk if attached to wrong DIRECT

David Rose 21 年之前
父節點
當前提交
50f0ebf987
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      direct/Package.pp

+ 3 - 0
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]]