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 | 76951fa6a9ab8a1e7f582e33a3306455f1af277b (patch) | |
| tree | c35db90bfb1df7256971ab5f224061afd658f5ed /perl-install | |
| parent | 02ed45faf2bd8627900cbc9ecec0f9cdea6477b4 (diff) | |
| download | drakx-backup-do-not-use-76951fa6a9ab8a1e7f582e33a3306455f1af277b.tar drakx-backup-do-not-use-76951fa6a9ab8a1e7f582e33a3306455f1af277b.tar.gz drakx-backup-do-not-use-76951fa6a9ab8a1e7f582e33a3306455f1af277b.tar.bz2 drakx-backup-do-not-use-76951fa6a9ab8a1e7f582e33a3306455f1af277b.tar.xz drakx-backup-do-not-use-76951fa6a9ab8a1e7f582e33a3306455f1af277b.zip | |
(main::SEGV) do not crash if $o isn't set
Diffstat (limited to 'perl-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; |