Clear %packages before re-filling it

diff --git a/software/aix-lib.pl b/software/aix-lib.pl
index b76ce93..32eb11a 100755 (executable)
--- a/software/aix-lib.pl
+++ b/software/aix-lib.pl
@@ -13,6 +13,7 @@ sub list_packages
        local($_, $list, $i, $file, %fileset);
        $i = 0;
        $list = join(' ', @_);
+       %packages = ( );
        &open_execute_command(LSLPP, "lslpp -L -c $list 2>&1 | grep -v '#'", 1, 1);
        while($file = <LSLPP>) {
                 %fileset = &fileset_info($file); 

diff --git a/software/cygwin-lib.pl b/software/cygwin-lib.pl
index 82054f8..6ab5a8c 100755 (executable)
--- a/software/cygwin-lib.pl
+++ b/software/cygwin-lib.pl
@@ -16,6 +16,7 @@ sub list_packages
 my (@pkgs) = @_;
 my $allpkgs = (@_ == 0);
 local($i, $list); $i = 0;
+%packages = ( );
 if (&open_tempfile(DB, $db)) {
     while (<DB>) {
        #suppress packages that begin with an underscore

diff --git a/software/debian-lib.pl b/software/debian-lib.pl
index 6df9644..624509c 100755 (executable)
--- a/software/debian-lib.pl
+++ b/software/debian-lib.pl
@@ -12,6 +12,7 @@ sub list_packages
 {
 local $i = 0;
 local $arg = @_ ? join(" ", map { quotemeta($_) } @_) : "";
+%packages = ( );
 &open_execute_command(PKGINFO, "COLUMNS=200 dpkg --list $arg", 1, 1);
 while(<PKGINFO>) {
        next if (/^\|/ || /^\+/);

diff --git a/software/emerge-lib.pl b/software/emerge-lib.pl
index de28cfd..7f8d9aa 100755 (executable)
--- a/software/emerge-lib.pl
+++ b/software/emerge-lib.pl
@@ -26,6 +26,7 @@ return ("emerge");
 sub list_packages
 {
 local $i = 0;
+%packages = ( );
 &open_execute_command(LIST, $package_list_command, 1, 1);
 while(<LIST>) {
        if (/^([^\/]+)\/([^0-9]+)-(\d\S+)$/ &&

diff --git a/software/freebsd-lib.pl b/software/freebsd-lib.pl
index 9cce708..b8fdb62 100755 (executable)
--- a/software/freebsd-lib.pl
+++ b/software/freebsd-lib.pl
@@ -16,6 +16,7 @@ sub list_packages
 {
 local $i = 0;
 local $arg = @_ ? join(" ", map { quotemeta($_) } @_) : "-a";
+%packages = ( );
 &open_execute_command(PKGINFO, "pkg_info -I $arg", 1, 1);
 while(<PKGINFO>) {
        if (/^(\S+)\s+(.*)/) {

diff --git a/software/hpux-lib.pl b/software/hpux-lib.pl
index be4798b..6465054 100755 (executable)
--- a/software/hpux-lib.pl
+++ b/software/hpux-lib.pl
@@ -14,6 +14,7 @@ local($i, $name, $class, @contents, $products, $title_flag);
 $i = 0;
 $products = join(' ', @_);
 $name = "";
+%packages = ( );
 
 open(SW, "swlist -v -a title -a contents |");
 while(<SW>) {

diff --git a/software/msi-lib.pl b/software/msi-lib.pl
index 7e1a137..62b2ffc 100755 (executable)
--- a/software/msi-lib.pl
+++ b/software/msi-lib.pl
@@ -15,6 +15,7 @@ return ($sw_discovery_cmd);
 # Fills the array %packages with all or listed packages
 sub list_packages
 {
+%packages = ( );
 if ($has_sw_discovery) {
        local %want = map { $_, 1 } @_;
        open(OUT, "$sw_discovery_cmd |");

diff --git a/software/openbsd-lib.pl b/software/openbsd-lib.pl
index 4104271..7f1d09a 100755 (executable)
--- a/software/openbsd-lib.pl
+++ b/software/openbsd-lib.pl
@@ -16,6 +16,7 @@ sub list_packages
 {
 local $i = 0;
 local $arg = @_ ? join(" ", map { quotemeta($_) } @_) : "-a";
+%packages = ( );
 &open_execute_command(PKGINFO, "pkg_info -I $arg", 1, 1);
 while(<PKGINFO>) {
        if (/^(\S+)\s+(.*)/) {

diff --git a/software/pkgadd-lib.pl b/software/pkgadd-lib.pl
index ee76d1e..ed439ca 100755 (executable)
--- a/software/pkgadd-lib.pl
+++ b/software/pkgadd-lib.pl
@@ -16,6 +16,7 @@ local $i = 0;
 local $list = join(' ', map { quotemeta($_) } @_);
 local $_;
 local %indexmap;
+%packages = ( );
 &open_execute_command(PKGINFO, "pkginfo -x $list", 1, 1);
 while(<PKGINFO>) {
        if (/^(\S+)\s*(.*)/) {

diff --git a/software/rpm-lib.pl b/software/rpm-lib.pl
index c8540e9..454eb12 100755 (executable)
--- a/software/rpm-lib.pl
+++ b/software/rpm-lib.pl
@@ -12,6 +12,7 @@ sub list_packages
 {
 local($i, $list); $i = 0;
 $list = @_ ? join(' ', map { quotemeta($_) } @_) : "-a";
+%packages = ( );
 &open_execute_command(RPM, "rpm -q $list --queryformat \"%{NAME}\\n%{VERSION}-%{RELEASE}\\n%{EPOCH}\\n%{GROUP}\\n%{SUMMARY}\\n\\n\"", 1, 1);
 while($packages{$i,'name'} = <RPM>) {
        chop($packages{$i,'name'});

diff --git a/software/slackware-lib.pl b/software/slackware-lib.pl
index ca56355..35cf293 100755 (executable)
--- a/software/slackware-lib.pl
+++ b/software/slackware-lib.pl
@@ -32,6 +32,7 @@ return -d &translate_filename($package_dir) ? undef :
 sub list_packages
 {
 local ($i, $f, @list);
+%packages = ( );
 opendir(DIR, &translate_filename($package_dir));
 local @list = @_ ? @_ : grep { !/^\./ } readdir(DIR);
 $i = 0;