diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-29 17:01:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-29 17:01:50 +0000 |
| commit | 252977cb615c34083999af21c43db77ece428110 (patch) | |
| tree | 150fb95560e466e92929322a66176f73359575a8 /perl-install/standalone.pm | |
| parent | 13c41fbc48704fa4452570364ed85579b7094f9d (diff) | |
| download | drakx-252977cb615c34083999af21c43db77ece428110.tar drakx-252977cb615c34083999af21c43db77ece428110.tar.gz drakx-252977cb615c34083999af21c43db77ece428110.tar.bz2 drakx-252977cb615c34083999af21c43db77ece428110.tar.xz drakx-252977cb615c34083999af21c43db77ece428110.zip | |
workaround crahsing while handling strange DBus errors (hacky :-() such as:
"org.freedesktop.Hal.NoSuchDevice: No device with id
/org/freedesktop/Hal/devices/volume_uuid_0d60bf68_9e31_46b5_b98a_ac61d2f96352"
which results in:
"Operation "eq": no method found,
left argument in overloaded package Net::DBus::Error,
right argument in overloaded package Net::DBus::Error at /usr/lib/libDrakX/standalone.pm line 199."
Diffstat (limited to 'perl-install/standalone.pm')
| -rw-r--r-- | perl-install/standalone.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index d9dae154e..3eccdbe92 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -196,7 +196,7 @@ sub bug_handler { return if $error && $^S ne '0' && !$is_signal; # exceptions with "\n" are normal ways to quit: - if (!$is_signal && $error eq MDK::Common::String::formatError($error)) { + if (!$is_signal && eval { $error eq MDK::Common::String::formatError($error) }) { warn $error; exit(255); } |