[Fai-commit] r3170 - trunk/bin

[fai-repository at svn.debian.org]

Author: lange
Date: 2005-12-10 20:40:21 +0000 (Sat, 10 Dec 2005)
New Revision: 3170

Modified:
   trunk/bin/install_packages
Log:
fix last code change
change .* to .+


Modified: trunk/bin/install_packages
===================================================================
--- trunk/bin/install_packages	2005-12-10 17:40:51 UTC (rev 3169)
+++ trunk/bin/install_packages	2005-12-10 20:40:21 UTC (rev 3170)
@@ -319,8 +319,9 @@
   # ignore packages ending with - when using -d
   @complete = grep {!/-$/} @complete if $opt_d; 
 
-  foreach my $pack (reverse @complete) {
-    if ( $pack =~ /^(.*)[_=+-]$/ and $1 and $cache->exists($1)) {
+  foreach (reverse @complete) {
+    my $pack = $_;
+    if ( /^(.+)[_=+-]$/ and $1 and $cache->exists($1)) {
       $pack = $1;
     }
     if (! defined ($complete{$pack})) {
@@ -360,7 +361,7 @@
 
     # simulate APTs and aptitudes understanding of "special" package names
     # suffixed by -, +
-    elsif ( $pack =~ /^(.*)[_=+-]$/ and $cache->exists($1)) {
+    elsif ( $pack =~ /^(.+)[_=+-]$/ and $cache->exists($1)) {
 
       if (defined ($cache->{$1}{VersionList})) {
 	push @known, $pack;