Select Code to Download

$ /usr/local/perl/5.14.2/bin/perl -we '$v=""; vec($v,4060380287,1)=1'
Negative offset to vec in lvalue context at -e line 1.
$ /usr/local/perl/5.15.8/bin/perl -we '$v=""; vec($v,4060380287,1)=1'
Negative offset to vec in lvalue context at -e line 1.

...
  Compiler:
...
                        USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE
                        USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO
                        USE_PERL_ATOF USE_REENTRANT_API

$ perl -wE '$v=""; vec($v,2**32+42,1)=1; say "wrapped" if vec($v,42,1)
+'
wrapped