1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1a8e5657a..389c57511 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -868,7 +868,7 @@ sub report_bug {
       header("partitions"), cat_("/proc/partitions"),
       header("cpuinfo"), cat_("/proc/cpuinfo"),
       header("syslog"), cat_("/tmp/syslog"),
-      header("ddcxinfos"), `$ENV{LD_LOADER} ddcxinfos`,
+      header("ddcxinfos"), ddcxinfos(),
       header("stage1.log"), cat_("/tmp/stage1.log"),
       header("ddebug.log"), cat_("/tmp/ddebug.log"),
       header("install.log"), cat_("$prefix/root/install.log"),
@@ -911,4 +911,14 @@ Or on the command line use: "usermod -G fileshare user_name"');
     }
 }
 
+sub ddcxinfos {
+    if ($::isInstall && -e "/tmp/ddcxinfos") {
+	cat_("/tmp/ddcxinfos");
+    } else {
+	my @l = `$ENV{LD_LOADER} ddcxinfos`;
+	output("/tmp/ddcxinfos", @l) if $::isInstall;
+	@l;
+    }
+}
+
 1;