From b1dc12e97b44b9d27ee6ac584ba2163826eed2c7 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Sun, 30 Nov 2014 17:24:18 +0100
Subject: used Carp to get the bt

---
 lib/AdminPanel/rpmdragora.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/AdminPanel/rpmdragora.pm')

diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm
index e9f23a04..3ae4f312 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};
-- 
cgit v1.2.1