File 0001-print-out-package-name.patch of Package instsource-susedata

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-print-out-package-name.patch of Package instsource-susedata (Revision 4c0f75854cffa952ab342499e4840657)

Currently displaying revision 4c0f75854cffa952ab342499e4840657 , Show latest

From 0aad0810e7721ae62846bc1a8f4c20e86b220e90 Mon Sep 17 00:00:00 2001
From: Max Lin <mlin@suse.com>
Date: Thu, 4 Oct 2018 16:36:31 +0800
Subject: [PATCH] print out package name

---
 add_product_susedata | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/add_product_susedata b/add_product_susedata
index 5cabc0e..4b7b231 100644
--- a/add_product_susedata
+++ b/add_product_susedata
@@ -287,12 +287,16 @@ my $prim_xml;
 while ($prgz->gzread($buffer,1048576)) {
   $prim_xml .= $buffer;
 }
-my $primary = XMLin($ABXML::primary,$prim_xml);
+print "INFO: packing to be a XML file\n";
+my $primary = eval { XMLin($ABXML::primary,$prim_xml); };
+print $@ if $@;
 $prim_xml = "";
+print "INFO: packing to be a XML file done\n";
 
 print "INFO: processing packages from primary\n";
 my @suse;
 for my $pack (@{$primary->{'package'}}) {
+ print "INFO: processing $pack->{'name'}\n";
  my $data;
  my $pkgid = (grep {$_->{'pkgid'}} @{$pack->{'checksum'}})[0]->{'_content'};
  my $pkgpath = $pack->{'location'}->{'href'};
-- 
2.16.4

Places

File 0001-print-out-package-name.patch of Package instsource-susedata (Revision 4c0f75854cffa952ab342499e4840657)

Places