[Moscow.pm] reverse изменяет аргумент

[Denis Evdokimov]

А знаете ли вы, что reverse изменяет свой агрумент?
В этом легко убедиться с помощью JSON или Devel::Peek :

perl -MJSON -e'my %a=(int => 222); print to_json \%a; my %b=reverse %a;
print to_json \%a;'
{"int":222}{"int":"222"}

perl -MDevel::Peek -e'my %a=(int => 222); Dump $a{int}; my %b=reverse %a;
Dump $a{int};'
SV = IV(0x1036d40) at 0x1036d48
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 222
SV = PVIV(0x1051220) at 0x1036d48
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 222
  PV = 0x1056220 "222"\0
  CUR = 3
  LEN = 8
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20121001/1ca292e0/attachment.html>