hurricup has asked for the wisdom of the Perl Monks concerning the following question:

Encountered an interesting piece of code inside of ExtUtils::Constant::Base:

my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;
The question is about $->1. According to perlvar $- is a The number of lines left on the page of the currently selected output channel. And what are we doing here? Comparing lines number with anonymous array? What the..?