From 06aadcfcae2e181410dbb4b1702ba581be11ad4e Mon Sep 17 00:00:00 2001
From: Neil Blakey-Milner <nbm@knowledgetree.com>
Date: Mon, 15 May 2006 13:29:59 +0000
Subject: [PATCH] Log more information about this edge-case-that-won't-die.

---
 lib/permissions/permissionutil.inc.php | 8 ++++++++
 1 file changed, 8 insertions(+), 0 deletions(-)

diff --git a/lib/permissions/permissionutil.inc.php b/lib/permissions/permissionutil.inc.php
index 55410e8..44d5075 100644
--- a/lib/permissions/permissionutil.inc.php
+++ b/lib/permissions/permissionutil.inc.php
@@ -83,6 +83,7 @@ class KTPermissionUtil {
         $sDescriptor = KTPermissionUtil::generateDescriptor($aAllowed);
         $oDescriptor =& KTPermissionDescriptor::getByDescriptor(md5($sDescriptor));
         if (PEAR::isError($oDescriptor)) {
+            $oOriginalDescriptor = $oDescriptor;
             
             $oDescriptor =& KTPermissionDescriptor::createFromArray(array(
                 "descriptortext" => $sDescriptor,
@@ -91,8 +92,15 @@ class KTPermissionUtil {
                 print '<pre>';
                 print_r($aAllowed);
                 print "-----------\n";
+                print "getOrCreateDescriptor get error (should be 'not found'):";
+                print "-----------\n";
+                print_r($oOriginalDescriptor);
+                print "-----------\n";
+                print "getOrCreateDescriptor create error (should not happen):";
+                print "-----------\n";
                 print_r($oDescriptor);
                 print '</pre>';
+                exit(0);
             }
             $oDescriptor->saveAllowed($aAllowed);
             
--
libgit2 0.21.4