From 8f8fa63efe652663d2d5f7c06a07569cc8fe231d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 2 Mar 2006 19:40:58 +0000
Subject: better debugging output

---
 mdkupdate | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mdkupdate b/mdkupdate
index 6af2ac28..9946b5ef 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -100,7 +100,7 @@ if (!$bundle) {
     if ($wc->{HOST_ID} && $wc->{HOST_KEY}) {
 	my $getupdates;
 	$getupdates = mdkonline::soap_get_updates_for_host($wc->{HOST_ID}, $wc->{HOST_KEY});
-	print Dumper($getupdates);
+	print Data::Dumper->Dump([ $getupdates ], [ qw(getupdates) ]);
 	if ($getupdates->{message}) {
 	    exit(0);
 	    my $rpms_scheduled;
@@ -141,7 +141,7 @@ if (!$bundle) {
     
     my $res = mdkonline::prepare_upload_conf($wc);
     $res eq 'OK' and $bundle_info = mdkonline::soap_query_bundle($wc, $bundle_vars{BUNDLE});
-    print Dumper($bundle_info);
+    print Data::Dumper->Dump([ $bundle_info ], [ qw(bundle_info) ]);
     if ($bundle_info->{status}) {
 	my @bundles;
 	my ($mirrors, $bundle) = ($bundle_info->{data}{mirrors}, $bundle_info->{data}{bundle});
-- 
cgit v1.2.1