Lines Matching refs:long

132     my $long;
147             $long=$1;
180             if(!$long) {
201     if(defined($short) && $long) {
202         $opt = "-$short, --$long";
204     elsif($short && !$long) {
207     elsif($long && !$short) {
208         $opt = "--$long";
263         my $l = manpageify($long);
295     my $long;
305             $long=$1;
325         $optshort{$short}=$long;
327     if($long) {
328         $optlong{$long}=$short;
329         $helplong{$long}=$help;
330         $arglong{$long}=$arg;
331         $protolong{$long}=$protocols;
332         $catlong{$long}=$category;
356         my $long = $f;
357         my $short = $optlong{$long};
358         my @categories = split ' ', $catlong{$long};
362         if(defined($short) && $long) {
363             $opt = "-$short, --$long";
365         elsif($long && !$short) {
366             $opt = "    --$long";
375         my $arg = $arglong{$long};
385             print STDERR "WARN: the --$long name is too long\n";
388             print STDERR "WARN: the --$long description is too long\n";