diff options
| -rw-r--r-- | lib/AdminPanel/rpmdragora.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm index e9f23a0..3ae4f31 100644 --- a/lib/AdminPanel/rpmdragora.pm +++ b/lib/AdminPanel/rpmdragora.pm @@ -51,6 +51,8 @@ use AdminPanel::Shared; use AdminPanel::Shared::Locales; use AdminPanel::Shared::GUI; +use Carp; + our @ISA = qw(Exporter); our $VERSION = '2.27'; our @EXPORT = qw( @@ -311,7 +313,7 @@ sub interactive_msg { sub interactive_packtable { my ($title, $parent_window, $top_label, $lines, $action_buttons) = @_; - warnings::warn("AdminPanel::rpmdragora::interactive_packtable is deprecated and is going to be removed"); + carp "AdminPanel::rpmdragora::interactive_packtable is deprecated and is going to be removed"; my $w = ugtk2->new($title, grab => 1, transient => $parent_window); local $::main_window = $w->{real_window}; |