diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-02 13:36:39 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-02 13:36:39 +0000 |
| commit | cd0be8913f2aaae67452ae27a3f989d884e9c510 (patch) | |
| tree | 2bddef2d6cd79d454bb7f72408c5f62a3fb23bbe /rpmdrake.pm | |
| parent | 5b5584c544ef5e840c3b908c6c16839903cd10f0 (diff) | |
| download | rpmdrake-cd0be8913f2aaae67452ae27a3f989d884e9c510.tar rpmdrake-cd0be8913f2aaae67452ae27a3f989d884e9c510.tar.gz rpmdrake-cd0be8913f2aaae67452ae27a3f989d884e9c510.tar.bz2 rpmdrake-cd0be8913f2aaae67452ae27a3f989d884e9c510.tar.xz rpmdrake-cd0be8913f2aaae67452ae27a3f989d884e9c510.zip | |
fix mouse cursor problem by calling my_gtk::exit instead of perl's
Diffstat (limited to 'rpmdrake.pm')
| -rw-r--r-- | rpmdrake.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm index f3102bad..1bf4d172 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -40,7 +40,8 @@ sub _ { my $s = shift @_; my $t = translate($s); sprintf $t, @_; } - +sub myexit { my_gtk::exit @_ } + $ENV{HOME} ||= '/root'; sub readconf { @@ -90,7 +91,7 @@ sub interactive_list { sub fatal_msg { interactive_msg @_; - exit -1; + myexit -1; } sub wait_msg { |