Index: lib/PAR/Dist.pm
===================================================================
--- lib/PAR/Dist.pm	(revision 1391)
+++ lib/PAR/Dist.pm	(working copy)
@@ -1166,17 +1166,10 @@
         return( $dn, $dv, undef, undef);
     }
 
-    while (@elem) {
-        my $e = shift @elem;
-        if ($e =~ /^(?:$version|any_version)$/) {
-            $pv = $e;
-            last;
-        }
-        push @arch, $e;
-    }
+    $pv = pop @elem;
 
     my $arch;
-    $arch = join('-', @arch) if @arch;
+    $arch = join('-', @elem) if @elem;
 
     return($dn, $dv, $arch, $pv);
 }