diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 3 |
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}; |