diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Youri/Repository/Mandriva_upload.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Youri/Repository/Mandriva_upload.pm b/lib/Youri/Repository/Mandriva_upload.pm index edbfa50..01a6813 100644 --- a/lib/Youri/Repository/Mandriva_upload.pm +++ b/lib/Youri/Repository/Mandriva_upload.pm @@ -277,6 +277,7 @@ sub get_upload_newer_revisions { croak "Not a class method" unless ref $self; my $arch = $package->get_arch(); my $name = $package->get_full_name; + $name =~ s/^\@\d+://; my $pattern = $self->get_package_class()->get_pattern($package->get_name(), undef, undef, $arch); my $media = $self->_get_media_config($target); my @packages; @@ -289,6 +290,7 @@ sub get_upload_newer_revisions { s/([^_]+)_//; return if ! /$pattern/; print "Find $_\n"; + s/^\@\d+://; push @packages, $File::Find::name if $package->compare_ranges("== $name", "< $_") }, $path); } |