rtyug

она какая-то укуренная или под кайфом

добавил модификатор s, теперь вообще не заменяет, не работает...

вот с коммунистическими звездочками!

:D

olga™, я вот хочу написать соц. сеть http://www.x0.org.ua (долго рассказывать, внешний вид еще не сделаный), может интересно будет?

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

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

push(@{$self->{stack}}, $self->{meth}->$sub($self, \%arg)) if ($sub);

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

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

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

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

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

=====

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

тогда верните обратно...

скорее всего вы что-то перепутали когда переносили (конфиг ит.д.)... или в админке что-то перепутали... и по этому массив маленький или пустой... и т.д.

можете попробовать, так ради интереса, добавить посмотреть что внутри в $self->{stack};:

     if ($op->[1]) { 

  print"Content-type:text/html\n\n";

    

 use Data::Dumper;

 print Dumper $self->{stack};

 return;

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

      } 

вообще, надо смотреть....

rtyug добавил 15.09.2010 в 16:38

а сайт вообще рабоатет?

($op->[1]*2);

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

в самый вверх можешь добавить:

use CGI::Carp qw(fatalsToBrowser);