#2 typing just 'pequel' produces a usage message with an error

[Eric Safern]

Typing simply 'pequel' produces a long usage
message. Buried in there is:
...
--cpp_cmd < args >
Use of uninitialized value in print
at /usr/lib/perl5/site_perl/5.8.0/ETL/Pequel
/Script.pm line 90.
Use of uninitialized value in print
at /usr/lib/perl5/site_perl/5.8.0/ETL/Pequel
/Script.pm line 90.

--input_record_limit < args >, --irl < args >
Input record process limit count -- process only
initial <limit> records.
--show_synonyms
...

The line in question is below, marked with >>>>:

sub usage : method
{
my $self = shift;

print "@{[ $self->PARAM->VERSION ]}
\n";
print "Usage: @{[ $self->PARAM-
>PEQUEL_EXEC_NAME ]} < script-name.pql > < options...
>\n";
foreach my $o (grep($_->cmdType,
$self->PARAM->options->toArray))
{
my $args = (defined($o-
>cmdFormat) && $o->cmdFormat eq ':s') ? ' < args
>' : '' ;
print join(', ', "--@{[ $o-
>name ]}${args}", map("--@{[ $_->name ]}${args}", $o-
>cmdAlia
s->toArray)), "\n";
>>>> print ' ', $o-
>description, "\n";
}
}