also return true for same version, because the file can be in another section (or we should check for all the section, but as the find is already doing it anyway; add reject functions

1 files changed, 21 insertions, 1 deletions

diff --git a/lib/Youri/Repository.pm b/lib/Youri/Repository.pm
index 54b3beb..255d217 100644
--- a/lib/Youri/Repository.pm
+++ b/lib/Youri/Repository.pm
@@ -127,7 +127,7 @@ sub get_newer_revisions {
         $package,
         $target,
         $define,
-        sub { return $_[0]->compare($package) > 0 }
+        sub { return $_[0]->compare($package) >= 0 }
     );
 }
 
@@ -297,6 +297,20 @@ sub get_archive_dir {
         $self->get_archive_path($package, $target, $define);
 }
 
+=head2 get_reject_dir($package, $target, $define)
+
+Returns rejecting destination directory for given L<Youri::Package> object
+and given target.
+
+=cut
+
+sub get_reject_dir {
+    my ($self, $package, $target, $define) = @_;
+    croak "Not a class method" unless ref $self;
+
+    return
+        $self->get_reject_path($package, $target, $define);
+}
 =head2 get_version_root()
 
 Returns versionning root
@@ -354,6 +368,12 @@ L<Youri::Package> object and given target.
 Returns archiving destination path (relative to repository root) for given
 L<Youri::Package> object and given target.
 
+=head2 get_reject_path($package, $target, $define)
+
+Returns reject destination path for given
+L<Youri::Package> object and given target.
+
+
 =head2 get_version_path($package, $target, $define)
 
 Returns versioning destination path (relative to repository root) for given