diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 14:01:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 14:01:12 +0000 |
| commit | 051c4b3cd9727392907d14240bb7255f47024724 (patch) | |
| tree | 20f28475510f90c118c655c652fc268ecf01daf3 /perl-install | |
| parent | 26fcf456d56ad6395f0cabc0da7ef094c09e83cc (diff) | |
| download | drakx-051c4b3cd9727392907d14240bb7255f47024724.tar drakx-051c4b3cd9727392907d14240bb7255f47024724.tar.gz drakx-051c4b3cd9727392907d14240bb7255f47024724.tar.bz2 drakx-051c4b3cd9727392907d14240bb7255f47024724.tar.xz drakx-051c4b3cd9727392907d14240bb7255f47024724.zip | |
(ask_from__add_modify_remove): check all callbacks are given
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 7f5a93934..8ae3401c9 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -254,6 +254,8 @@ sub ask_from__add_modify_remove { my ($o, $title, $message, $l, %callback) = @_; die "ask_from__add_modify_remove only handles one item" if @$l != 1; + $callback{$_} or internal_error("missing callback $_") foreach qw(Add Modify Remove); + if ($o->can('ask_from__add_modify_removeW')) { ask_from__add_modify_removeW($o, $title, $message, $l, %callback); } else { |