Merge pull request openSUSE#382 from b1-systems/changelog2spec-obs_sc…

…m-fix

changelog2spec: prefer _service:.*:.*.changes

changelog2spec

@@ -75,11 +75,11 @@ if (@ARGV == 2 && $ARGV[0] eq '--file') {
   opendir(D, $dir) || die("$dir: $!\n");
   my @changes = grep {/\.changes$/} readdir(D);
   closedir(D);
+  @changes = sort {length($a) <=> length($b) || $a cmp $b} @changes;
   # support _service: prefixes, they need to be stripped
   $file =~ s/^_service:.*://;
   my %changes = map {/^((?:_service:.*:)?(.*?))$/ ? ($2, $1) : ($_, $_)} @changes;
   @changes = keys %changes;
-  @changes = sort {length($a) <=> length($b) || $a cmp $b} @changes;
   exit(1) unless @changes;	# nothing to do
   if (@changes > 1) {
     while ($file ne '') {