From 47f5af098580e33c05c5d3d58740c3f7cca654ab Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Fri, 1 Sep 2006 10:00:21 +0000 Subject: fix bad package dir and search pattern --- lib/Youri/Repository/Mandriva_upload_pre.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Youri/Repository') diff --git a/lib/Youri/Repository/Mandriva_upload_pre.pm b/lib/Youri/Repository/Mandriva_upload_pre.pm index c755ea9..2132e9c 100644 --- a/lib/Youri/Repository/Mandriva_upload_pre.pm +++ b/lib/Youri/Repository/Mandriva_upload_pre.pm @@ -91,7 +91,7 @@ sub get_revisions { map { $self->get_package_class()->new(file => $_) } $self->get_files( $self->{_install_root}, - "$target/$arch/$dir/release" . $self->_get_section($package, $target, $define), + "$target/$arch/$dir/release" , $self->get_package_class()->get_pattern($package->get_name(),undef, undef, $package->get_arch()) ); } @@ -246,7 +246,7 @@ sub get_upload_newer_revisions { print "Looking for package $package revisions for $target in $self->{_upload_root} (pattern $pattern)\n"; my @packages; foreach my $dir ('cooker', 'contrib') { - find(sub { return if ! /$pattern/; print "Find $_\n"; push @packages, $File::Find::name if $package->compare($self->get_package_class()->new(file => $File::Find::name)) <= 0 }, "$self->{_upload_root}/$dir"); + find(sub { return if ! /^$pattern/; print "Find $_\n"; push @packages, $File::Find::name if $package->compare($self->get_package_class()->new(file => $File::Find::name)) <= 0 }, "$self->{_upload_root}/$dir"); } return @packages; -- cgit v1.2.1