Fix last commit release-test-recommends
authorMichael Schroeder <mls@suse.de>
Mon, 28 Nov 2016 13:37:10 +0000 (14:37 +0100)
committerSoonKyu Park <sk7.park@samsung.com>
Sat, 7 Jan 2017 06:21:03 +0000 (15:21 +0900)
expanddeps

index 30ca3bd1d5ae9e722290a5d637082793e616f357..b40e4ad2b6282fc2bbfe9a15990a051b3e1e709b 100755 (executable)
@@ -363,9 +363,9 @@ for my $pack (keys %packs) {
     }
     push @su, $s;
     while (@s && $s[0] =~ /^[\(<=>|]/) {
-      $rc[-1] .= " $s[0] $s[1]";
-      $rc[-1] =~ s/ \((.*)\)/ $1/;
-      $rc[-1] =~ s/(<|>){2}/$1/;
+      $su[-1] .= " $s[0] $s[1]";
+      $su[-1] =~ s/ \((.*)\)/ $1/;
+      $su[-1] =~ s/(<|>){2}/$1/;
       splice(@s, 0, 2);
     }
   }