From 01d5e5cc1aa7c7df1a3c67e34c839094d479b20e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 29 Oct 2021 16:20:04 +0200
Subject: Add a wrapper to easily debug Xorg

---
 perl-install/install/NEWS           |  1 +
 perl-install/install/share/list.xml | 10 ++++++++++
 2 files changed, 11 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 0edbabc11..cdb86f099 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
 - Debug mode:
   o Adapt to the fact that gdb-11.1 uses guile-3
   o Adapt to gdb-11.1 (missing scm files)
+  o Add a wrapper to easily debug Xorg
 
 Version 18.46 - 6 June 2021
 
diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml
index 000b18909..77c2fb60b 100644
--- a/perl-install/install/share/list.xml
+++ b/perl-install/install/share/list.xml
@@ -703,6 +703,16 @@
     upgrade
   </to>
 
+  <if set="DEBUG_INSTALL">
+    <to dir="/bin">
+      <!-- abusing '<from expand="command">' -->
+      <from expand="command">
+	      echo 'gdb -q --args /usr/libexec/Xorg.wrap :0 -allowMouseOpenFail -xf86config /tmp/Xconf vt7 -dpi 75 -nolisten tcp'> share/gdb-x11;
+	      chmod +x share/gdb-x11; echo gdb-x11
+      </from>
+    </to>
+  </if>
+
   <!-- for gtk+3 that needs dbus to be initialized -->
   <to dir="/etc">
     <!-- abusing '<from expand="command">' -->
-- 
cgit v1.2.1