/[fai]/trunk/bin/install_packages
ViewVC logotype

Diff of /trunk/bin/install_packages

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3169 by lange, Sat Dec 10 17:40:00 2005 UTC revision 3170 by lange, Sat Dec 10 20:40:21 2005 UTC
# Line 319  sub mkpackagelist { Line 319  sub mkpackagelist {
319    # ignore packages ending with - when using -d    # ignore packages ending with - when using -d
320    @complete = grep {!/-$/} @complete if $opt_d;    @complete = grep {!/-$/} @complete if $opt_d;
321    
322    foreach my $pack (reverse @complete) {    foreach (reverse @complete) {
323      if ( $pack =~ /^(.*)[_=+-]$/ and $1 and $cache->exists($1)) {      my $pack = $_;
324        if ( /^(.+)[_=+-]$/ and $1 and $cache->exists($1)) {
325        $pack = $1;        $pack = $1;
326      }      }
327      if (! defined ($complete{$pack})) {      if (! defined ($complete{$pack})) {
# Line 360  sub mkpackagelist { Line 361  sub mkpackagelist {
361    
362      # simulate APTs and aptitudes understanding of "special" package names      # simulate APTs and aptitudes understanding of "special" package names
363      # suffixed by -, +      # suffixed by -, +
364      elsif ( $pack =~ /^(.*)[_=+-]$/ and $cache->exists($1)) {      elsif ( $pack =~ /^(.+)[_=+-]$/ and $cache->exists($1)) {
365    
366        if (defined ($cache->{$1}{VersionList})) {        if (defined ($cache->{$1}{VersionList})) {
367          push @known, $pack;          push @known, $pack;
Legend:
Removed from v.3169  
changed lines
  Added in v.3170
  ViewVC Help
Powered by ViewVC 1.1.5