[Moscow.pm] Небольшой баг?

[Alex Varyanick]

2010/11/2 Denis Evdokimov <evdokimov.denis на gmail.com>:
> Несколько моментов
> * баг или я что-то не так делаю?
> * где-нибудь может выстрелить? К примеру в XS модулях.
> * Почему так?
>
> use Data::Dumper;
>
> my @array = ( 0 .. 3 );
> for ( my $index = $#array ; $index >= 0 ; $index-- )
> {
>    print Dumper($index);
> }

SV = PVMG(0x995b7e8) at 0x992c538
  REFCNT = 1
  FLAGS = (PADMY,pIOK,pNOK)
  IV = 3
  NV = 3
  PV = 0
SV = PVMG(0x995b7e8) at 0x992c538
  REFCNT = 1
  FLAGS = (PADMY,IOK,NOK,pIOK,pNOK)
  IV = 2
  NV = 2
  PV = 0
SV = PVMG(0x995b7e8) at 0x992c538
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 1
  NV = 2
  PV = 0
SV = PVMG(0x995b7e8) at 0x992c538
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 0
  NV = 2
  PV = 0

IV == 3 так что ИМХО всё бдует ок, ну для верности можно: int($#array)


-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q на cono.org.ua