Select Code to Download

#! perl -slw
use strict;
...
$belt->put( $_ ) for 1 .. 10;
$belt->put( undef );

Problem signature:
  Problem Event Name:    APPCRASH
...
  Additional Information 2:    e939a93db866b76af40148e39e07fd0d
  Additional Information 3:    85c4
  Additional Information 4:    6c632c487ffa8e4b9b7137dbbbe72313

C:\test>t-TCcrap
1
...
8
Thread 1 terminated abnormally: Can't use an undefined value as an ARR
+AY reference at C:/Perl64/site/lib/Thread/Tie/Array.pm (loaded on dem
+and from offset 1939 for 176 bytes) line 75.
Terminating on signal SIGINT(2)

Argument "n/a" isn't numeric in printf at C:/Perl64/site/lib/Devel/Tra
+ce.pm line 20.
>> [0] t-TCcrap.pl                   :    6: my $belt = Thread::Convey
+or->new( {
...
>> [0] C:/Perl64/site/lib/load.pm    :  352:             $pod = !m#^=c
+ut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm    :  353:             next if $pod 
+or m#^\s*\##;
...