Fixed return of updates from YUM
authorJamie Cameron <jcameron@webmin.com>
Fri, 5 Sep 2008 19:12:38 +0000 (19:12 +0000)
committerJamie Cameron <jcameron@webmin.com>
Fri, 5 Sep 2008 19:12:38 +0000 (19:12 +0000)
software/yum-lib.pl

index 9662061..ad706c2 100644 (file)
@@ -27,9 +27,11 @@ while(<CMD>) {
        elsif (/^(Installed|Dependency Installed|Updated|Dependency Updated):\s+(.*)/) {
                local @pkgs = split(/\s+/, $2);
                foreach my $p (@pkgs) {
-                       if ($p !~ /:/ && $p =~ /^(\S+)\.(\S+)$/ &&
-                           $p =~ /[^0-9\.\-\_i]/) {
-                               push(@rv, $1);
+                       if ($p !~ /:/ && $p =~ /^(\S+)\.(\S+)$/) {
+                               my $pname = $1;
+                               if ($p =~ /[^0-9\.\-\_i]/) {
+                                       push(@rv, $pname);
+                                       }
                                }
                        }
                }