Browse Source

Dpkg/Shlibs/SymbolFile.pm: Replace DEPRECATED by MISSING

People understand better that symbols disappeared with the marker MISSING
than with the marker DEPRECATED (which look like it was done on purpose).
Continue to accept DEPRECATED in the input however.
Raphael Hertzog 18 years ago
parent
commit
8cbf573fab
3 changed files with 10 additions and 2 deletions
  1. 6 0
      ChangeLog
  2. 2 0
      debian/changelog
  3. 2 2
      scripts/Dpkg/Shlibs/SymbolFile.pm

+ 6 - 0
ChangeLog

@@ -1,3 +1,9 @@
+2008-01-04  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Shlibs/SymbolFile.pm: Replace #DEPRECATED by
+	#MISSING in the output and recognize both while parsing. People
+	understand better that way.
+
 2008-01-03  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/dpkg-shlibdeps.pl (find_symbols_file): When libraries

+ 2 - 0
debian/changelog

@@ -10,6 +10,8 @@ dpkg (1.14.15) UNRELEASED; urgency=low
     debian/*/DEBIAN/symbols for a given soname. Closes: #458860
   * Add a -S<pkgbuilddir> option to dpkg-shlibdeps to indicate a package build
     tree to scan first when trying to find a needed library.
+  * Change dpkg-gensymbols to mark symbols that disappeared with #MISSING
+    instead of #DEPRECATED, it's clearer for people.
 
   [ Guillem Jover ]
   * Move compression related variables to a new Dpkg::Compression module.

+ 2 - 2
scripts/Dpkg/Shlibs/SymbolFile.pm

@@ -120,7 +120,7 @@ sub load {
 	    my $dir = $file;
 	    $dir =~ s{[^/]+$}{}; # Strip filename
 	    $self->load("$dir$filename", $seen, $object);
-	} elsif (/^#DEPRECATED: ([^#]+)#\s*(\S+)\s(\S+)(?:\s(\d+))?/) {
+	} elsif (/^#(?:DEPRECATED|MISSING): ([^#]+)#\s*(\S+)\s(\S+)(?:\s(\d+))?/) {
 	    my $sym = {
 		minver => $3,
 		dep_id => defined($4) ? $4 : 0,
@@ -179,7 +179,7 @@ sub dump {
 	foreach my $sym (sort keys %{$self->{objects}{$soname}{syms}}) {
 	    my $info = $self->{objects}{$soname}{syms}{$sym};
 	    next if $info->{deprecated} and not $with_deprecated;
-	    print $fh "#DEPRECATED: $info->{deprecated}#" if $info->{deprecated};
+	    print $fh "#MISSING: $info->{deprecated}#" if $info->{deprecated};
 	    print $fh " $sym $info->{minver}";
 	    print $fh " $info->{dep_id}" if $info->{dep_id};
 	    print $fh "\n";