From cd25d6da365fb0a4ca794c640dba7e0593f5c0d1 Mon Sep 17 00:00:00 2001 From: Mandrake Date: Tue, 12 Sep 2006 12:40:13 +0000 Subject: fix bad section gessing when archiving --- lib/Youri/Upload/Action/Archive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Youri/Upload/Action/Archive.pm b/lib/Youri/Upload/Action/Archive.pm index 3626d88..d16deeb 100644 --- a/lib/Youri/Upload/Action/Archive.pm +++ b/lib/Youri/Upload/Action/Archive.pm @@ -43,9 +43,9 @@ sub run { $repository->get_replaced_packages($package, $target, $define) ) { my $file = $replaced_package->get_file(); - my ($rep_section, $rep_main_section) = $file =~ m,$path(([^/]+)/.*)/[^/]+.rpm,; + my ($rep_section, $rep_main_section) = $file =~ m,$path/(([^/]+)/.*)/[^/]+.rpm,; # We do accept duplicate version for other submedia of the same main media section - print "file $file section $rep_section main_section $rep_main_section ($path)\n" if $self->{_verbose}; + print "(path $path) file $file section $rep_section main_section $rep_main_section ($path)\n" if $self->{_verbose}; next if $rep_main_section eq $main_section && $rep_section ne $section; my $dest = $repository->get_archive_dir($package, $target, $define); -- cgit v1.2.1