My bad, forgot the third argument to substr().

>     ## build leader piecemeal
>     my $ldr = ' ' x 24;
>     substr( $ldr, 10, 1 ) = 2;
>     substr( $ldr, 11, 1 ) = 2;
>     substr( $ldr, 20, 1 ) = 4;
>     substr( $ldr, 21, 1 ) = 5;
>     substr( $ldr, 22, 1 ) = 0;
>     $r->leader( $ldr );

Reply via email to