瀏覽代碼

dpkg-name: Do not handle Revision and Package_Revision fields

Those fields have already been parsed and handled by “dpkg-deb -I”.
Guillem Jover 17 年之前
父節點
當前提交
ed4065c246
共有 2 個文件被更改,包括 2 次插入5 次删除
  1. 2 0
      debian/changelog
  2. 0 5
      scripts/dpkg-name.pl

+ 2 - 0
debian/changelog

@@ -3,6 +3,8 @@ dpkg (1.15.4) UNRELEASED; urgency=low
   * Call _g instead of g_ in dpkg-name.
   * Call _g instead of g_ in dpkg-name.
   * Fix inverted logic when deciding to assume the architecture in dpkg-name
   * Fix inverted logic when deciding to assume the architecture in dpkg-name
     when the package didn't have such field.
     when the package didn't have such field.
+  * Do not take into account Revision and Package_Revision fields in dpkg-name
+    as they have been handled already by “dpkg-deb -I”.
 
 
  -- Guillem Jover <guillem@debian.org>  Sat, 27 Jun 2009 19:25:30 +0200
  -- Guillem Jover <guillem@debian.org>  Sat, 27 Jun 2009 19:25:30 +0200
 
 

+ 0 - 5
scripts/dpkg-name.pl

@@ -122,11 +122,6 @@ sub getname($$$)
 
 
     my $pkg = $fields->{Package};
     my $pkg = $fields->{Package};
     (my $version = $fields->{Version}) =~ s/.*://;
     (my $version = $fields->{Version}) =~ s/.*://;
-    my $revision = $fields->{Revision} || $fields->{Package_Revision};
-    if ($revision) {
-        $version .= "-$revision";
-    }
-
     my $type = $fields->{'Package-Type'} || 'deb';
     my $type = $fields->{'Package-Type'} || 'deb';
 
 
     my $tname;
     my $tname;