On Saturday 29 August 2009, David Anselmi wrote:
> Since 1:2.0, debmirror fails with "Duplicate dist hardy."

Can you try with the following change?

 sub split_dist {
   my $dist = shift;
-  my ($dist_raw) = ($dist =~ m:^([^/]+)/?:);
-  $dist =~ m:^[^/]+(/.*)?$:;
+  my ($dist_raw) = ($dist =~ m:^([^-/]+)[-/]?:);
+  $dist =~ m:^[^-/]+([-/].*)?$:;
   my $dist_sdir = $1 // "";
   return ($dist_raw, $dist_sdir);
 }

Untested, but I think it should fix things for you.

Cheers,
FJP



-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to