| ... | ... |
@@ -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); |