diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-02-26 03:54:55 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-02-26 03:54:55 +0000 |
| commit | bdab1284757a968942516c8c439aaea78a9b3ee3 (patch) | |
| tree | c35db90bfb1df7256971ab5f224061afd658f5ed /perl-install/install | |
| parent | d4f0540ece5a05563291fa71c370c5603266abea (diff) | |
| download | drakx-bdab1284757a968942516c8c439aaea78a9b3ee3.tar drakx-bdab1284757a968942516c8c439aaea78a9b3ee3.tar.gz drakx-bdab1284757a968942516c8c439aaea78a9b3ee3.tar.bz2 drakx-bdab1284757a968942516c8c439aaea78a9b3ee3.tar.xz drakx-bdab1284757a968942516c8c439aaea78a9b3ee3.zip | |
(main::SEGV) do not crash if $o isn't set
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/install2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 4b5a93610..c3728a0eb 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -320,7 +320,7 @@ sub main { $SIG{SEGV} = sub { my $msg = "segmentation fault: install crashed (maybe memory is missing?)\n" . backtrace(); log::l("$msg\n" . backtrace()); - $o->ask_warn('', $msg); + $o and $o->ask_warn('', $msg); setVirtual(1); stop_udev() if !$::local_install; require install::steps_auto_install; |