4 files changed, 12 insertions, 2 deletions
diff --git a/perl-install/install/Makefile b/perl-install/install/Makefile
index 9d4f35246..405cd9904 100644
--- a/perl-install/install/Makefile
+++ b/perl-install/install/Makefile
@@ -104,8 +104,7 @@ stage2:
 
 dont_run_directly_stage2:
 	[ -d $(DEST) ] || ../../tools/mdkinst_stage2_tool --uncompress $(STAGE2_DEST)
-	echo -e '#!/bin/sh\n\nperl -I/usr/lib/libDrakX -Minstall::install2 -e "install::install2::start_udev()"\nexec /usr/bin/busybox sh' > $(DEST)/usr/bin/runinstall2.sh
-	chmod a+x $(DEST)/usr/bin/runinstall2.sh
+	install -m 755 share/runinstall2.sh share/gdb-inst $(DEST)/usr/bin/
 	ln -sf runinstall2.sh $(DEST)/usr/bin/runinstall2
 
 trace_stage2:
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index a8863c182..82bc16e7b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add a wrapper for running GDB in installer a simpler way
+
 Version 13.91 - 08 March 2012
 
 - Mageia 2 beta 2 banner
diff --git a/perl-install/install/share/gdb-inst b/perl-install/install/share/gdb-inst
new file mode 100644
index 000000000..84c2db9bf
--- /dev/null
+++ b/perl-install/install/share/gdb-inst
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec gdb -q --args perl /usr/bin/install2
+\ No newline at end of file
diff --git a/perl-install/install/share/runinstall2.sh b/perl-install/install/share/runinstall2.sh
new file mode 100644
index 000000000..10f3ef700
--- /dev/null
+++ b/perl-install/install/share/runinstall2.sh
@@ -0,0 +1,7 @@
+#!/bin/sh
+
+echo "Starting Udev\n"
+perl -I/usr/lib/libDrakX -Minstall::install2 -e "install::install2::start_udev()"
+echo "You can start the installer by running install2"
+echo "You can run it in GDB by running gdb-inst"
+exec /usr/bin/busybox sh