format glitch

Yes, I'm wicked.  I know that.  But watch:

    use warnings;
    my $i = 0;

    format Testing =
    Can you read this? @*
    ++$i
    .

    local $~ = *Testing{FORMLINE};
    write;

Produces this:

    Use of uninitialized value in scalar assignment at /tmp/s1 line 9.
    Undefined format "main::" called at /tmp/s1 line 10.

I'm not used to being warned about undef in an assignment
like this.  And well, that's a funny format name. :-)

--tom

• format glitch by Tom Christiansen