From 144664cc0ee14672957bcc16d0780e76d5a4ecf6 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 9 Oct 2003 13:57:35 +0000 Subject: report error why /dev/tty2 is not available for opening a shell --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 1d5d87d27..dc2122c08 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -208,7 +208,7 @@ sub spawnShell() { $ENV{DISPLAY} ||= ":0"; #- why not :pp local *F; - sysopen F, "/dev/tty2", 2 or die "cannot open /dev/tty2 -- no shell will be provided"; + sysopen F, "/dev/tty2", 2 or die "cannot open /dev/tty2 -- no shell will be provided: $!"; open STDIN, "<&F" or die ''; open STDOUT, ">&F" or die ''; -- cgit v1.2.1