Perl ссылки не возвращают правильные значения

Question

я впервые задаю вопрос здесь, поэтому извиняюсь, если я не соблюдаю какие-либо соглашения правильно.

Я столкнулся с ошибкой в ​​некотором коде Perl, который в основном потерял все параметры в URL после первого имени.пара значений и решение состояло в том, чтобы использовать функцию URI::Escape в URL.

После этого изменения я решил переместить код, который делает это, в модуль Perl (Utils.pm), чтобы любые будущие изменения требовали толькочтобы сделать это один раз в этом файле, вместо того, чтобы обновлять каждый файл, который его использует.

Проблема, с которой я столкнулся, заключается в том, что переменные user, passwd и priv, похоже, не возвращают правильные значения -система по-прежнему позволяет вам входить в систему, но не может идентифицировать ваше имя или ваши привилегии.

Ниже приведена ссылка на вставку кода, который, по моему мнению, имеет отношение к проблеме.

Я считаю, что это связано со ссылками, но любые изменения, которые я делаю, просто ломают страницу!

Если у кого-то есть какие-либо идеи, я был бы очень признателенпомощь.

http://pastebin.com/tqGfGutW

Answer 1

Мне удалось разобраться, попробовав пару вещей.

В Utils.pm я просто убрал обратную косую черту, чтобы она гласила:

$res = CGI_ats::GetUserandPasswd($user, $passwd, $privs);

так как на них уже есть ссылки на пару строк до этого, я думаю, что это имеет смысл не нужно ссылаться на них снова.