diff options
author | Florent Villard <warly@mandriva.com> | 2006-10-16 16:26:42 +0000 |
---|---|---|
committer | Florent Villard <warly@mandriva.com> | 2006-10-16 16:26:42 +0000 |
commit | db4080d6ec327d2f26b3c7d9395bfe71f210abf1 (patch) | |
tree | fd088c5b1805f1fe4c8bc574b07c08fe79b57271 /lib/Youri/Submit/Check/Tag.pm | |
parent | 363a191019f34e2f78edd2a92cd02be004ee4fd2 (diff) | |
download | mga-youri-submit-db4080d6ec327d2f26b3c7d9395bfe71f210abf1.tar mga-youri-submit-db4080d6ec327d2f26b3c7d9395bfe71f210abf1.tar.gz mga-youri-submit-db4080d6ec327d2f26b3c7d9395bfe71f210abf1.tar.bz2 mga-youri-submit-db4080d6ec327d2f26b3c7d9395bfe71f210abf1.tar.xz mga-youri-submit-db4080d6ec327d2f26b3c7d9395bfe71f210abf1.zip |
merging dev with upstream
Diffstat (limited to 'lib/Youri/Submit/Check/Tag.pm')
-rw-r--r-- | lib/Youri/Submit/Check/Tag.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lib/Youri/Submit/Check/Tag.pm b/lib/Youri/Submit/Check/Tag.pm index 453534c..3fadfa3 100644 --- a/lib/Youri/Submit/Check/Tag.pm +++ b/lib/Youri/Submit/Check/Tag.pm @@ -1,9 +1,9 @@ # $Id$ -package Youri::Upload::Check::Tag; +package Youri::Submit::Check::Tag; =head1 NAME -Youri::Upload::Check::Tag - Incorrect tag values check +Youri::Submit::Check::Tag - Incorrect tag values check =head1 DESCRIPTION @@ -15,7 +15,7 @@ expressions. use warnings; use strict; use Carp; -use base qw/Youri::Upload::Check/; +use base qw/Youri::Submit::Check/; sub _init { my $self = shift; @@ -34,15 +34,20 @@ sub run { my ($self, $package, $repository, $target, $define) = @_; croak "Not a class method" unless ref $self; + my @errors; + foreach my $tag (keys %{$self->{_tags}}) { my $value = $package->get_tag($tag); if ($value !~ /$self->{_tags}->{$tag}/) { - $self->{_error} = "invalid value $value for tag $tag"; - return 0; + push( + @errors, + "invalid value $value for tag $tag" + ); } } - return 1; + return @errors; + } =head1 COPYRIGHT AND LICENSE |