Кто подскажет по Perl, что это за ошибочка?

12
DyaDya
На сайте с 11.04.2007
Offline
147
#11

rtyug, в принципе, может ваш код как-то можно доправить???

Просто когда его размещаю, то вот такая ошибка. Хотя не понятно почему.

Undefined subroutine AIPM::Method::

at /bhome/part1/01/aipm/perllib//FlyNet/Template.pm line 137

Может в этой строке 137 тоже стоит доппроверку сделать на существование функции?

137 push(@{$self->{stack}}, $self->{meth}->$sub($self, \%arg));
Выбирайте качественный хостинг (http://vashmaster.ru/informaciya/o_poleznyh_programmah/news83.php) и продвигайте сайты в СЕОПУЛЬТ (http://seopult.ru/ref.php?ref=72b5ed9561fe66a1). А на «SAPE» я в обиде :) Не упрекайте за очепятки, пишу вслепую (http://ergosolo.ru/) и также делаю сайты (http://www.vashmaster.ru/) ;)
rtyug
На сайте с 13.05.2009
Offline
263
#12

да, и не видно откуда $sub пришло

и $op тоже не видно...

тут видно просто какой-то абстрактный движок сайта... хитрый...

rtyug добавил 15.09.2010 в 17:33

DyaDya:

Undefined subroutine AIPM::Method::

скорее всего из-за того что $sub не определено...

=====

если вы код не меняли и если все работало, то может посмотрите какие-то настрокйи, файлы конфигурации...

Спалил тему: Pokerstars вывод WMZ, etc на VISA 0% или SWIFT + Конверт USD/GBP,etc (net profit $0,5 млрд) (https://minfin.com.ua/blogs/94589307/115366/) Monobank - 50₴ на счет при рег. тут (https://clck.ru/DLX4r) | Номер SIP АТС Москва 7(495) - 0Ꝑ, 8(800) - 800Ꝑ/0Ꝑ (http://goo.gl/XOrCSn)
DyaDya
На сайте с 11.04.2007
Offline
147
#13
rtyug:
скорее всего из-за того что $sub не определено...

Я так и подумал. Наверное, тоже можно как-то проверку сделать на существование функции перед вызовом строки 137 ?

137 push(@{$self->{stack}}, $self->{meth}->$sub($self, \%arg));
rtyug
На сайте с 13.05.2009
Offline
263
#14

не вижу код и не знаю что такое $sub и чему оно равно...

да, можно попробовать:

push(@{$self->{stack}}, $self->{meth}->$sub($self, \%arg)) if ($sub);
DyaDya
На сайте с 11.04.2007
Offline
147
#15

rtyug, да, с этой доппроверкой, ошибки нет. Но что-то не выполняется(. Так как на сайте не всё оказывается сгенерённым. Меню не формируется и ещё некоторые моменты.

Вы можете проверить идентичность логики вот этих двух строк:

1. @arg = reverse splice(@{$self->{stack}}, -($op->[1]*2)) if $self->{stack}->[-1] > ($op->[1]*2);
2. @arg = reverse splice(@{$self->{stack}}, -($op->[1]*2));

Вот втором случае, хоть и выдаётся ошибка, но вроде как всё генерится. А в первом случае ошибки не выдаётся при работе, но не всё выполняется.

Что-то мне подсказывает, что они не идентичны).

rtyug
На сайте с 13.05.2009
Offline
263
#16

тут вродебы глупость я посоветовал :D

попробуй так:

@arg = reverse splice(@{$self->{stack}}, -($op->[1]*2)) if scalar @{$self->{stack}} > ($op->[1]*2);

но не знаю подойдет ли это

12

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий