diff options
Diffstat (limited to 'lib/Youri')
| -rw-r--r-- | lib/Youri/Repository/Mandriva_upload_pre.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |