Dpkg::Shlibs::SymbolFile::add_symbol() reverse $sym, $soname argument order.

This makes order consistent with lookup_{symbol,pattern}.

scripts/Dpkg/Shlibs/SymbolFile.pm

@@ -115,7 +115,7 @@ sub create_symbol {
 }
 
 sub add_symbol {
-    my ($self, $soname, $symbol) = @_;
+    my ($self, $symbol, $soname) = @_;
     my $object = (ref $soname) ? $soname : $self->{objects}{$soname};
 
     if ($symbol->is_pattern()) {
@@ -174,7 +174,7 @@ sub load {
 	    my $deprecated = ($1) ? $1 : 0;
 	    my $sym = new_symbol($base_symbol, deprecated => $deprecated);
 	    if ($self->create_symbol($2, $sym)) {
-		$self->add_symbol($$obj_ref, $sym);
+		$self->add_symbol($sym, $$obj_ref);
 	    } else {
 		warning(_g("Failed to parse line in %s: %s"), $file, $_);
 	    }
@@ -215,7 +215,6 @@ sub load {
     delete $seen->{$file};
 }
 
-
 # Beware: we reuse the data structure of the provided symfile so make
 # sure to not modify them after having called this function
 sub merge_object_from_symfile {
@@ -386,7 +385,7 @@ sub merge_symbols {
 		$sym = Dpkg::Shlibs::Symbol->new(symbol => $name,
 		                                 minver => $minver);
 	    }
-	    $self->add_symbol($obj, $sym);
+	    $self->add_symbol($sym, $obj);
 	}
     }
 

scripts/t/200_Dpkg_Shlibs.t

@@ -146,7 +146,7 @@ is_deeply($sym, Dpkg::Shlibs::Symbol->new( 'symbol' => '_errno@GLIBC_2.0',
 
 # Wildcard test
 my $pat = $sym_file_old->create_symbol('*@GLIBC_PRIVATE 2.3.6.wildcard');
-$sym_file_old->add_symbol('libc.so.6', $pat);
+$sym_file_old->add_symbol($pat, 'libc.so.6');
 $sym_file_old->merge_symbols($obj, "2.6-1");
 $sym = $sym_file_old->lookup_symbol('__nss_services_lookup@GLIBC_PRIVATE', ['libc.so.6']);
 is_deeply($sym, Dpkg::Shlibs::Symbol->new( 'symbol' => '__nss_services_lookup@GLIBC_PRIVATE',