summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-02 19:40:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-02 19:40:58 +0000
commit8f8fa63efe652663d2d5f7c06a07569cc8fe231d (patch)
treee5eb407ce00453830676d8742511b9f1edc08c3d
parent2628dc974bfb3d2e88ff742f875c38380e4ea1c3 (diff)
downloadmgaonline-8f8fa63efe652663d2d5f7c06a07569cc8fe231d.tar
mgaonline-8f8fa63efe652663d2d5f7c06a07569cc8fe231d.tar.gz
mgaonline-8f8fa63efe652663d2d5f7c06a07569cc8fe231d.tar.bz2
mgaonline-8f8fa63efe652663d2d5f7c06a07569cc8fe231d.tar.xz
mgaonline-8f8fa63efe652663d2d5f7c06a07569cc8fe231d.zip
better debugging output
-rwxr-xr-xmdkupdate4
1 files 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});