ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     17 Mar 2004  14:05:23
 To : All
 Subject : странность
 -------------------------------------------------------------------------------- 
 

 Hello, All!
 
 Если запустить так, то получаю:
 Operation `=': no method found, argument in overloaded package Test at a.pl
 line 10.
 Attempt to free unreferenced scalar.
 
 Если убрать комментарии у скобочек, то всё ок.
 Или если убрать комментарий у operator=, то тоже ок.
 Why?
 
 my @arr = qw(1 2 3 4);
 
 #{
 my $o=bless {},'Test';
 unshift @arr,$o;
 #}
 print "Before\n";
 $arr[0] += shift(@arr);
 print "After\n";
 
 package Test;
 
 use overload
 #             "="  => sub{print "=\n";return shift;},
              "+=" => sub{print "+=\n";return shift;};
 
 sub DESTROY{
   print "TestDestroy\n";
 }
 1;
 -- 
 Best regards,
       Konstantin.
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5.3
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    странность   Konstantin Stupnik   17 Mar 2004 14:05:23   Re: странность   Artem Chuprina   17 Mar 2004 16:27:48   Re: странность   Konstantin Stupnik   17 Mar 2004 16:54:37   Re: странность   Artem Chuprina   17 Mar 2004 22:56:11   Re: странность   Konstantin Stupnik   18 Mar 2004 12:35:14