Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix a couple of missed deprecations
  • Loading branch information
marcusramberg committed Feb 23, 2013
1 parent 0dab946 commit eebfd15
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 6 deletions.
4 changes: 2 additions & 2 deletions lib/Mojo/Home.pm
Expand Up @@ -82,8 +82,8 @@ sub rel_file { catfile(@{shift->{parts} || []}, split '/', shift) }

# DEPRECATED in Rainbow!
sub slurp_rel_file {
deprecated
"Mojo::Home->slurp_rel_file is DEPRECATED in favor of Mojo::Util->slurp!!!";
deprecated "Mojo::Home->slurp_rel_file is DEPRECATED "
. "in favor of Mojo::Util->slurp!!!";
slurp shift->rel_file(@_);
}

Expand Down
6 changes: 2 additions & 4 deletions lib/Mojo/Util.pm
Expand Up @@ -123,10 +123,8 @@ sub hmac_sha1_sum { _hmac(\&sha1, @_) }
# DEPRECATED in Rainbow!
sub html_escape {
warn <<EOF;
Mojo::Util->html_escape is DEPRECATED in favor of Mojo::Util->xml_escape!!!
EOF
my ($string, $pattern) = @_;
deprecated "Mojo::Util->html_escape is DEPRECATED "
. "in favor of Mojo::Util->xml_escape!!!" my ($string, $pattern) = @_;
$pattern ||= '^\n\r\t !#$%(-;=?-~';
return $string unless $string =~ /[^$pattern]/;
$string =~ s/([$pattern])/_encode($1)/ge;
Expand Down

0 comments on commit eebfd15

Please sign in to comment.