За чистоту логов

[shoorick]

Пишем в перлоскрипте:
use URI;
use Digest::MD5 'md5_hex';

my $uri = URI->new('some_uri');
$uri->query_form( \%args );
my $md5_of_uri = md5_hex( $uri );

В итоге всё, вроде-бы, работает, да перл ругается в STDERR (ну или в апачный лог):&Digest::MD5::md5_hex function called with reference argument
Но стóит чуть-чуть изменить код:
my $md5_of_uri = md5_hex( $uri->as_string );
и всё приходит в норму.