Ambiguous last usage in Net::NNTP

[hurricup]

Another strange thing encountered. This time in Net::NNTP

 foreach my $h (@{$hosts}) {
    $connect{PeerAddr} = $h;
    $obj = $type->SUPER::new(%connect) or next;
    ${*$obj}{'net_nntp_host'} = $h;
    ${*$obj}{'net_nntp_arg'} = \%arg;
    if ($arg{SSL}) {
      Net::NNTP::_SSL->start_SSL($obj,%arg) or next;
    }
    last:
  }

You may see last: in the end of the block. Is this a label here (never used though)? Or kinda seldom usage of last command?

[kcott]

G'day hurricup,

That's part of the constructor (new()) code. From the Net::NNTP documentation, you can provide "... an array with hosts to try in turn.".

Changing last: to last; will stop it trying after the first success (which is probably the intent).

I'll take your word for it, that there's no label called 'last' referenced elsewhere in the code. I was trying to think of way you could actually do that without generating an error (e.g. 'next last;', 'last last;', etc.); however, Perl seems to handle it OK:

$ perl -MO=Deparse -e 'next last;'
next (last);
-e syntax OK

$ perl -MO=Deparse -e 'last last;'
last (last);
-e syntax OK

Looks like you're going to be spending a fair bit of time on rt.cpan.org today. :-)