projects
/
migration-tools.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
testing updates
[migration-tools.git]
/
Equinox-Migration
/
lib
/
Equinox
/
Migration
/
SimpleTagList.pm
diff --git
a/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
b/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
index
6a27328
..
6bac8df
100644
(file)
--- a/
Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
+++ b/
Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
@@
-178,6
+178,8
@@
sub add_tag {
my ($self, $tag) = @_;
$tag =~ s/^0+//;
+ die "Values must be numeric\n" if ($tag =~ /[^\d\-]/);
+
die "Values must be valid tags (0-999)\n"
unless ($tag >= 0 and $tag <= 999);