... | ... |
@@ -1556,7 +1556,7 @@ sub register_tag_processor { |
1556 | 1556 |
|
1557 | 1557 |
# DEPRECATED! |
1558 | 1558 |
sub update_param_tag { |
1559 |
- warn "update_param is DEPRECATED! " . |
|
1559 |
+ warn "update_param_tag is DEPRECATED! " . |
|
1560 | 1560 |
"use update_param instead"; |
1561 | 1561 |
return shift->update_param(@_); |
1562 | 1562 |
} |
... | ... |
@@ -25,8 +25,8 @@ sub build_query { |
25 | 25 |
if ($source =~ /\{/ && $source =~ /\}/) { |
26 | 26 |
$query = $self->_parse_tag($source); |
27 | 27 |
my $tag_count = delete $query->{tag_count}; |
28 |
- warn qq/Tag system such as {? name} is DEPRECATED! This will be removed after 2017/ . |
|
29 |
- qq/use parameter system :name instead/ |
|
28 |
+ warn qq/Tag system such as {? name} is DEPRECATED! / . |
|
29 |
+ qq/use parameter system such as :name instead/ |
|
30 | 30 |
if $tag_count; |
31 | 31 |
my $query2 = $self->_parse_parameter($query->sql); |
32 | 32 |
$query->sql($query2->sql); |