| From c99c61e8f863a508a0793168011c98dc74abbd05 Mon Sep 17 00:00:00 2001 |
| From: Dominic Hargreaves <dom@earth.li> |
| Date: Sat, 14 Apr 2012 11:34:05 +0100 |
| Subject: Invoke x-terminal-emulator rather than xterm in perl5db.pl |
| |
| In Debian systems, xterm might not exist or might not be the preferred |
| terminal emulator. Use x-terminal-emulator instead |
| |
| Bug-Debian: http://bugs.debian.org/668490 |
| Forwarded: not-needed |
| |
| Patch-Name: debian/perl5db-x-terminal-emulator.patch |
| --- |
| lib/perl5db.pl | 2 +- |
| 1 file changed, 1 insertion(+), 1 deletion(-) |
| |
| diff --git a/lib/perl5db.pl b/lib/perl5db.pl |
| index 7e7194e..c466bf3 100644 |
| --- a/lib/perl5db.pl |
| +++ b/lib/perl5db.pl |
| @@ -6960,7 +6960,7 @@ properly set up. |
| sub xterm_get_fork_TTY { |
| ( my $name = $0 ) =~ s,^.*[/\\],,s; |
| open XT, |
| -qq[3>&1 xterm -title "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\ |
| +qq[3>&1 x-terminal-emulator -T "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\ |
| sleep 10000000' |]; |
| |
| # Get the output from 'tty' and clean it up a little. |