Решено: Почему не работает такая штука? (perl)

[nuclear17]

my $current_id=$main->getCurrentUserId($dbh,$cgi);
вылетает Can't call method "getCurrentUserId" on an undefined value

[deadhead]

my $current_id=$main->getCurrentUserId($dbh,$cgi);
вылетает Can't call method "getCurrentUserId" on an undefined value

видимо, $dbh и $cgi не определены, о чем вам и сообщается ;-)

[nuclear17]

не, они определены

в ф-и принимаю так.
sub getCurrentUserId{
my $cgi=pop;
my $dbh=pop;


my $current_id=$main->getCurrentUserId($dbh,$cgi);
находится в package video

[nuclear17]

ОТВЕТ НАЙДЕН

[serzh-z]

nuclear17
И каков же ответ?