summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm1
-rw-r--r--perl-install/install_steps_gtk.pm3
2 files changed, 0 insertions, 4 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 8d3d37ad8..7752e8e79 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -682,7 +682,6 @@ sub formatMount_all {
#- for fun :)
#- that way, when install exits via ctrl-c, it gives hand to partition
eval {
- local $SIG{__DIE__} = 'ignore';
my ($_type, $major, $minor) = devices::entry(fsedit::get_root($fstab)->{device});
output "/proc/sys/kernel/real-root-dev", makedev($major, $minor);
};
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ba34a9205..7469c84a7 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -28,9 +28,6 @@ use log;
sub new($$) {
my ($type, $o) = @_;
- my $old = $SIG{__DIE__};
- $SIG{__DIE__} = sub { $_[0] !~ /ugtk2\.pm/ and goto $old };
-
$ENV{DISPLAY} ||= $o->{display} || ":0";
my $wanted_DISPLAY = $::testing && -x '/usr/X11R6/bin/Xnest' ? ':9' : $ENV{DISPLAY};