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 1e89db5294864e788867738942566dc5)

Currently displaying revision 1e89db5294864e788867738942566dc5 , Show latest

From 5c8ffdb0e3c7377258ec83c75ab56d960bbbf500 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 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/add_product_susedata b/add_product_susedata
index 5cabc0e..37431ee 100644
--- a/add_product_susedata
+++ b/add_product_susedata
@@ -287,12 +287,17 @@ my $prim_xml;
 while ($prgz->gzread($buffer,1048576)) {
   $prim_xml .= $buffer;
 }
+print "INFO: packing to be a XML file\n";
+eval { XMLin($ABXML::primary,$prim_xml); };
+print "INFO: $@\n" if $@;
 my $primary = XMLin($ABXML::primary,$prim_xml);
 $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 1e89db5294864e788867738942566dc5)

Places