Pasted

#https://stackoverflow.com/questions/3852395/is-there-a-way-to-turn-on-tracing-in-perl-equivalent-to-bash-x#3852412
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:851:     $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
>> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
>> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
>> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
>> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
>> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
>> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
>> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
>> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
>> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
>> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
>> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
>> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
>> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:851:     $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
>> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
>> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
>> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
>> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /usr/share/perl/5.24/Getopt/Long.pm:474:     $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n"
>> /usr/share/perl/5.24/Getopt/Long.pm:478:     die ($error) if $error;
>> /usr/share/perl/5.24/Getopt/Long.pm:479:     $error = 0;
>> /usr/share/perl/5.24/Getopt/Long.pm:482:     if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:489:     if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:498:     if ( $debug ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:508:     my $goon = 1;
>> /usr/share/perl/5.24/Getopt/Long.pm:509:     while ( $goon && @$argv > 0 ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:771:     if ( @ret && $order == $PERMUTE ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:778:     return ($error == 0);
>> /usr/share/perl/5.24/Getopt/Long.pm:206:     Getopt::Long::Configure ($save);
>> /usr/share/perl/5.24/Getopt/Long.pm:1335:     my (@options) = @_;
>> /usr/share/perl/5.24/Getopt/Long.pm:1337:     my $prevconfig =
>> /usr/share/perl/5.24/Getopt/Long.pm:1343:     if ( ref($options[0]) eq 'ARRAY' ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:1347:      $longprefix, $bundling_values ) = @{shift(@options)};
>> /usr/share/perl/5.24/Getopt/Long.pm:1347:      $longprefix, $bundling_values ) = @{shift(@options)};
>> /usr/share/perl/5.24/Getopt/Long.pm:1350:     my $opt;
>> /usr/share/perl/5.24/Getopt/Long.pm:1351:     foreach $opt ( @options ) {
>> /usr/share/perl/5.24/Getopt/Long.pm:1451:     $prevconfig;
>> /usr/share/perl/5.24/Getopt/Long.pm:209:     die ($@) if $@;
>> /usr/share/perl/5.24/Getopt/Long.pm:210:     return $ret;
>> tigervncserver:1218:     &usage(!$rc) if (!$rc || $opts{'help'});
>> tigervncserver:1220:     if ((@ARGV > 0) && ($ARGV[0] =~ /^([@\w\d.]*)(?::(\d+(?:\.\d+)?|\*))?$/)) {
>> tigervncserver:1238:       $options->{'displayHost'}   = $HOSTFQDN;
>> tigervncserver:1241:     if ($options->{'displayHost'} ne $HOST &&
>> tigervncserver:1303:     unless (defined $options->{'PlainUsers'}) {
>> tigervncserver:1304:       chomp($options->{'PlainUsers'} = `/usr/bin/id -u -n`);
>> tigervncserver:1306:     unless (defined $options->{'PAMService'}) {
>> tigervncserver:1307:       if (-f '/etc/pam.d/vnc') {
>> tigervncserver:1311:         $options->{'PAMService'} = 'tigervnc';
>> tigervncserver:1315:     foreach my $key (keys %opts) {
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
>> tigervncserver:1318:     if ($opts{'noxstartup'}) {
>> tigervncserver:1322:     if (defined $opts{'vncPasswdFile'}) {
>> tigervncserver:1325:       $options->{'passwordArgSpecified'} = 0;
>> tigervncserver:1327:     if (defined $options->{'localhost'}) {
>> tigervncserver:1330:     unless (defined $options->{'SecurityTypes'}) {
>> tigervncserver:1331:       if (!defined($options->{'localhost'}) || $options->{'localhost'}) {
>> tigervncserver:1332:         $options->{'SecurityTypes'} = 'VncAuth';
>> tigervncserver:1333:         $options->{'localhost'}     = 1;
>> tigervncserver:1339:     $options->{'vncAuthEnabled'} = 0;
>> tigervncserver:1340:     $options->{'noneAuthEnabled'} = 0;
>> tigervncserver:1341:     $options->{'plainAuthEnabled'} = 0;
>> tigervncserver:1342:     $options->{'x509CertRequired'} = 0;
>> tigervncserver:1343:     $options->{'haveSSLEncryption'} = 0;
>> tigervncserver:1344:     foreach my $securityType (split(',', $options->{'SecurityTypes'})) {
>> tigervncserver:1345:       $options->{'vncAuthEnabled'} = 1    if $securityType =~ m/^(?:.*vnc|vncauth)$/i;
>> tigervncserver:1346:       $options->{'noneAuthEnabled'} = 1   if $securityType =~ m/none$/i;
>> tigervncserver:1347:       $options->{'plainAuthEnabled'} = 1  if $securityType =~ m/plain$/i;
>> tigervncserver:1348:       $options->{'x509CertRequired'} = 1  if $securityType =~ m/^x509/i;
>> tigervncserver:1349:       $options->{'haveSSLEncryption'} = 1 if $securityType =~ m/^(?:x509|tls)/i;
>> tigervncserver:1352:     if ($options->{'plainAuthEnabled'} &&
>> tigervncserver:1360:     unless (defined $options->{'localhost'}) {
>> tigervncserver:1370:     if (!$options->{'localhost'} && $options->{'noneAuthEnabled'} &&
>> tigervncserver:1377:     if ($options->{'noneAuthEnabled'} &&
>> tigervncserver:1384:   my $runningUserVncservers = &runningUserVncservers($options);
>> tigervncserver:474:   my ($options) = @_;
>> tigervncserver:475:   my %runningUserVncservers = ();
>> tigervncserver:477:   my $d = DirHandle->new($options->{'vncUserDir'});
>> /usr/share/perl/5.24/DirHandle.pm:35:     @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
>> /usr/share/perl/5.24/DirHandle.pm:36:     my $class = shift;
>> /usr/share/perl/5.24/DirHandle.pm:37:     my $dh = gensym;
>> /usr/share/perl/5.24/Symbol.pm:23:     my $name = "GEN" . $genseq++;
>> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
>> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
>> /usr/share/perl/5.24/Symbol.pm:25:     delete $$genpkg{$name};
>> /usr/share/perl/5.24/Symbol.pm:26:     $ref;
>> /usr/share/perl/5.24/DirHandle.pm:38:     if (@_) {
>> /usr/share/perl/5.24/DirHandle.pm:39:    DirHandle::open($dh, $_[0])
>> /usr/share/perl/5.24/DirHandle.pm:55:     @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
>> /usr/share/perl/5.24/DirHandle.pm:56:     my ($dh, $dirname) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:57:     opendir($dh, $dirname);
>> /usr/share/perl/5.24/DirHandle.pm:42:     bless $dh, $class;
>> tigervncserver:478:   if (defined $d) {
>> tigervncserver:479:     while (defined(my $entry = $d->read)) {
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
>> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
>> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
>> tigervncserver:510:     undef $d;
>> /usr/share/perl/5.24/DirHandle.pm:46:     my ($dh) = @_;
>> /usr/share/perl/5.24/DirHandle.pm:49:     local($., $@, $!, $^E, $?);
>> /usr/share/perl/5.24/DirHandle.pm:51:     closedir($dh);
>> tigervncserver:512:   return \%runningUserVncservers;
>> tigervncserver:1385:   my @vncs = ();
>> tigervncserver:1386:   if (defined $options->{'displayNumber'}) {
>> tigervncserver:1409:     push @vncs, &getDisplayNumber();
>> tigervncserver:410:   foreach my $n (1..99) {
>> tigervncserver:411:     return $n if &checkDisplayNumberAvailable($n);
>> tigervncserver:385:   my ($n) = @_;
>> tigervncserver:387:   return 0 if &checkDisplayNumberUsed($n);
>> tigervncserver:373:   my ($n) = @_;
>> tigervncserver:374:   return &checkTCPPortUsed( 5900 + $n ) ||
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:389:   if (-e "/tmp/.X$n-lock") {
>> tigervncserver:395:   if (-e "/tmp/.X11-unix/X$n") {
>> tigervncserver:400:   return 1;
>> tigervncserver:1412:   if ($options->{'kill'}) {
>> tigervncserver:1419:     $options->{'displayNumber'} = $vncs[0];
>> tigervncserver:1421:     &checkGeometryAndDepth($options);
>> tigervncserver:226:   my ( $options ) = @_;
>> tigervncserver:228:   my $wmDecorationWidth;
>> tigervncserver:229:   my $wmDecorationHeight;
>> tigervncserver:231:   if ($options->{'wmDecoration'} =~ /^(\d+)x(\d+)$/) {
>> tigervncserver:232:     ($wmDecorationWidth, $wmDecorationHeight) = ($1,$2);
>> tigervncserver:237:   if ($options->{'geometry'} =~ /^(\d+)x(\d+)$/) {
>> tigervncserver:238:     my ( $width, $height ) = ( $1, $2 );
>> tigervncserver:239:     if ($options->{'usedXDisplayDefaultsGeometry'}) {
>> tigervncserver:243:     if (($width<1) || ($height<1)) {
>> tigervncserver:248:     $width  = int(($width +3)/4)*4;
>> tigervncserver:249:     $height = int(($height+1)/2)*2;
>> tigervncserver:251:     $options->{'geometry'} = "${width}x${height}";
>> tigervncserver:257:   if ($options->{'pixelformat'}) {
>> tigervncserver:268:   if (($options->{'depth'} < 8) || ($options->{'depth'} > 32)) {
>> tigervncserver:1424:       !$runningUserVncservers->{$options->{'displayNumber'}}->{'stale'};
>> tigervncserver:1425:     if (!&checkDisplayNumberAvailable($options->{'displayNumber'}) &&
>> tigervncserver:385:   my ($n) = @_;
>> tigervncserver:387:   return 0 if &checkDisplayNumberUsed($n);
>> tigervncserver:373:   my ($n) = @_;
>> tigervncserver:374:   return &checkTCPPortUsed( 5900 + $n ) ||
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:389:   if (-e "/tmp/.X$n-lock") {
>> tigervncserver:395:   if (-e "/tmp/.X11-unix/X$n") {
>> tigervncserver:400:   return 1;
>> tigervncserver:1430:     unless (defined $options->{'desktopName'}) {
>> tigervncserver:1431:       $options->{'desktopName'} = "${HOSTFQDN}:$options->{'displayNumber'} ($USER)";
>> tigervncserver:1433:     if ($options->{'useold'} && $haveOld) {
>> tigervncserver:1437:       if ($runningUserVncservers->{$options->{'displayNumber'}} &&
>> tigervncserver:1441:       &startXvncServer( $options );
>> tigervncserver:688:   my ($options) = @_;
>> tigervncserver:689:   my $vncStartup = $options->{'vncStartup'};
>> tigervncserver:690:   my $xstartupArg= $options->{'xstartupArgSpecified'};
>> tigervncserver:691:   my $vncPort    = 5900 + $options->{'displayNumber'};
>> tigervncserver:692:   my $desktopLog = &desktopLog($options);
>> tigervncserver:443:   my ($options,$usedDisplay) = @_;
>> tigervncserver:444:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
>> tigervncserver:445:   return File::Spec->catfile($options->{'vncUserDir'}, "$HOSTFQDN:$usedDisplay.log");
>> tigervncserver:693:   my $pidFile    = &pidFile($options);
>> tigervncserver:430:   my ($options,$usedDisplay) = @_;
>> tigervncserver:431:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
>> tigervncserver:432:   return "$options->{'vncUserDir'}/$HOSTFQDN:$usedDisplay.pid";
>> tigervncserver:696:   &CreateVNCPasswd($options);
>> tigervncserver:611:   my ( $options ) = @_;
>> tigervncserver:616:              $options->{'passwordArgSpecified'};
>> tigervncserver:617:   my $vncPasswdFile = $options->{'vncPasswdFile'};
>> tigervncserver:618:   my $st = stat($vncPasswdFile);
>> /usr/share/perl/5.24/File/stat.pm:205:     my $arg = shift;
>> /usr/share/perl/5.24/File/stat.pm:206:     my $st = populate(CORE::stat $arg);
>> /usr/share/perl/5.24/File/stat.pm:193:     return unless @_;
>> /usr/share/perl/5.24/File/stat.pm:194:     my $stob = new();
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:5:     my ($class, %init) = @_;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:6:     $class = __PACKAGE__ unless @_;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:7:     my($r) = [];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:8:  bless $r, $class;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:10:     $r->dev( defined($init{'dev'}) ? $init{'dev'} : undef ); # dev
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:27:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:28:     croak 'Too many args to dev' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:29:     @_ ? ($r->[0] = shift) : $r->[0];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:11:     $r->ino( defined($init{'ino'}) ? $init{'ino'} : undef ); # ino
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:32:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:33:     croak 'Too many args to ino' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:34:     @_ ? ($r->[1] = shift) : $r->[1];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:12:     $r->mode( defined($init{'mode'}) ? $init{'mode'} : undef ); # mode
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:37:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:38:     croak 'Too many args to mode' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:39:     @_ ? ($r->[2] = shift) : $r->[2];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:13:     $r->nlink( defined($init{'nlink'}) ? $init{'nlink'} : undef ); # nlink
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:42:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:43:     croak 'Too many args to nlink' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:44:     @_ ? ($r->[3] = shift) : $r->[3];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:14:     $r->uid( defined($init{'uid'}) ? $init{'uid'} : undef ); # uid
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:47:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:48:     croak 'Too many args to uid' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:49:     @_ ? ($r->[4] = shift) : $r->[4];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:15:     $r->gid( defined($init{'gid'}) ? $init{'gid'} : undef ); # gid
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:52:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:53:     croak 'Too many args to gid' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:54:     @_ ? ($r->[5] = shift) : $r->[5];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:16:     $r->rdev( defined($init{'rdev'}) ? $init{'rdev'} : undef ); # rdev
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:57:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:58:     croak 'Too many args to rdev' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:59:     @_ ? ($r->[6] = shift) : $r->[6];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:17:     $r->size( defined($init{'size'}) ? $init{'size'} : undef ); # size
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:62:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:63:     croak 'Too many args to size' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:64:     @_ ? ($r->[7] = shift) : $r->[7];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:18:     $r->atime( defined($init{'atime'}) ? $init{'atime'} : undef ); # atime
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:67:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:68:     croak 'Too many args to atime' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:69:     @_ ? ($r->[8] = shift) : $r->[8];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:19:     $r->mtime( defined($init{'mtime'}) ? $init{'mtime'} : undef ); # mtime
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:72:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:73:     croak 'Too many args to mtime' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:74:     @_ ? ($r->[9] = shift) : $r->[9];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:20:     $r->ctime( defined($init{'ctime'}) ? $init{'ctime'} : undef ); # ctime
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:77:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:78:     croak 'Too many args to ctime' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:79:     @_ ? ($r->[10] = shift) : $r->[10];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:21:     $r->blksize( defined($init{'blksize'}) ? $init{'blksize'} : undef ); # blksize
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:82:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:83:     croak 'Too many args to blksize' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:84:     @_ ? ($r->[11] = shift) : $r->[11];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:22:     $r->blocks( defined($init{'blocks'}) ? $init{'blocks'} : undef ); # blocks
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:87:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:88:     croak 'Too many args to blocks' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:89:     @_ ? ($r->[12] = shift) : $r->[12];
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:24:  $r;
>> /usr/share/perl/5.24/File/stat.pm:195:     @$stob = (
>> /usr/share/perl/5.24/File/stat.pm:199:     return $stob;
>> /usr/share/perl/5.24/File/stat.pm:207:     return $st if defined $st;
>> tigervncserver:620:   if (!defined($st) || ($st->mode & 077)) {
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:37:     my $r = shift;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:38:     croak 'Too many args to mode' if @_ > 1;
>> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:39:     @_ ? ($r->[2] = shift) : $r->[2];
>> tigervncserver:698:   &CreateX509Cert($options);
>> tigervncserver:633:   my ( $options ) = @_;
>> tigervncserver:640:             defined $options->{'X509Key'};
>> tigervncserver:699:   &CreateMITCookie($options);
>> tigervncserver:590:   my ( $options ) = @_;
>> tigervncserver:591:   my $displayNumber  = $options->{'displayNumber'};
>> tigervncserver:592:   my $xauthorityFile = $options->{'xauthorityFile'};
>> tigervncserver:593:   my $cookie = `mcookie`; # try mcookie
>> tigervncserver:595:   unless (defined $cookie) {
>> tigervncserver:603:     chomp $cookie;
>> tigervncserver:605:   system(getCommand("xauth"), "-f", "$xauthorityFile", "add", "$HOSTFQDN:$displayNumber", ".", "$cookie");
>> tigervncserver:99:   my ($cmd) = @_;
>> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
/usr/bin/xauth:  error in locking authority file /root/.Xauthority
>> tigervncserver:606:   system(getCommand("xauth"), "-f", "$xauthorityFile", "add", "$HOST/unix:$displayNumber", ".", "$cookie"); 
>> tigervncserver:99:   my ($cmd) = @_;
>> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
^[  ^[  ^[  ^[  /usr/bin/xauth:  timeout in locking authority file /root/.Xauthority
>> tigervncserver:702:   if (defined($vncStartup) && !$xstartupArg && !(-e $vncStartup)) {
>> tigervncserver:714:   if (defined($vncStartup) && !$xstartupArg && !(-x $vncStartup)) {
>> tigervncserver:721:   my $pidFileFh  = IO::File->new($pidFile, "w", 0644);
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:34:     my $type = shift;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:35:     my $class = ref($type) || $type || "IO::File";
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:36:     @_ >= 0 && @_ <= 3
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:38:     my $fh = $class->SUPER::new();
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:54:     my $class = ref($_[0]) || $_[0] || "IO::Handle";
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:55:     if (@_ != 1) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:67:     my $io = gensym;
>> /usr/share/perl/5.24/Symbol.pm:23:     my $name = "GEN" . $genseq++;
>> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
>> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
>> /usr/share/perl/5.24/Symbol.pm:25:     delete $$genpkg{$name};
>> /usr/share/perl/5.24/Symbol.pm:26:     $ref;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:68:     bless $io, $class;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:39:     if (@_) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:40:  $fh->open(@_)
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:51:     @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:52:     my ($fh, $file) = @_;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:53:     if (@_ > 2) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:54:  my ($mode, $perms) = @_[2, 3];
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:55:  if ($mode =~ /^\d+$/) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:62:             return open($fh, IO::Handle::_open_mode_string($mode), $file);
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:94:     my ($mode) = @_;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:95:     $mode =~ /^\+?(<|>>?)$/
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:100:     $mode;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:43:     $fh;
>> tigervncserver:722:   unless (defined $pidFileFh) {
>> tigervncserver:727:   my $xvncServerPid = fork();
>> tigervncserver:728:   if ($xvncServerPid == 0) {
>> tigervncserver:780:   $pidFileFh->print($xvncServerPid."\n");
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:157:     @_ or croak 'usage: $io->print(ARGS)';
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:158:     my $this = shift;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:159:     print $this @_;
>> tigervncserver:781:   $pidFileFh->close();
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:123:     @_ == 1 or croak 'usage: $io->close()';
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:124:     my($io) = @_;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:126:     close($io);
>> tigervncserver:787:           'usedDisplay' => $options->{'displayNumber'}
>> tigervncserver:792:     my $i = 300;
>> tigervncserver:792:     my $i = 300;
>> tigervncserver:793:     for (; $i >= 0; $i = $i-1) {
>> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
>> tigervncserver:728:   if ($xvncServerPid == 0) {
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:730:     my @cmd = (getCommand("Xtigervnc"));
>> tigervncserver:99:   my ($cmd) = @_;
>> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
>> tigervncserver:731:     push @cmd, ":".$options->{'displayNumber'};
>> tigervncserver:732:     if (defined $options->{'desktopName'}) {
>> tigervncserver:733:       push @cmd, '-desktop', $options->{'desktopName'};
>> tigervncserver:735:     if (defined $options->{'vncClasses'} &&
>> tigervncserver:745:     push @cmd, '-auth', $options->{'xauthorityFile'};
>> tigervncserver:746:     push @cmd, '-geometry', $options->{'geometry'} if $options->{'geometry'};
>> tigervncserver:747:     push @cmd, '-depth', $options->{'depth'} if $options->{'depth'};
>> tigervncserver:748:     push @cmd, '-pixelformat', $options->{'pixelformat'} if $options->{'pixelformat'};
>> tigervncserver:749:     push @cmd, '-rfbwait', $options->{'rfbwait'};
>> tigervncserver:750:     push @cmd, '-rfbauth', $options->{'vncPasswdFile'} if $options->{'vncAuthEnabled'};
>> tigervncserver:751:     push @cmd, '-rfbport', $vncPort;
>> tigervncserver:752:     push @cmd, '-pn';
>> tigervncserver:753:     push @cmd, '-localhost' if $options->{'localhost'} =~ m/^(?:yes|true|1)$/i;
>> tigervncserver:754:     push @cmd, '-fp', $options->{'fontPath'} if $options->{'fontPath'};
>> tigervncserver:755:     push @cmd, "-SecurityTypes", $options->{'SecurityTypes'} if defined $options->{'SecurityTypes'};
>> tigervncserver:756:     if ($options->{'plainAuthEnabled'}) {
>> tigervncserver:760:     if ($options->{'x509CertRequired'}) {
>> tigervncserver:764:     push @cmd, @ARGV;
>> tigervncserver:766:     print join(" ",@cmd), "\n" if $options->{'verbose'};
>> tigervncserver:767:     open(OLDERR, '>&', \*STDERR); # save old STDERR
>> tigervncserver:768:     open(STDOUT, '>>', $desktopLog);
>> tigervncserver:769:     open(STDERR, '>>', $desktopLog);
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
>> tigervncserver:796:       usleep 100000;
>> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
>> tigervncserver:796:       usleep 100000;
>> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
>> tigervncserver:352:   my ($port) = @_;
>> tigervncserver:353:   my $proto  = getprotobyname('tcp');
>> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
>> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
>> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
>> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
>> tigervncserver:362:   close(S);
>> tigervncserver:363:   return 0;
>> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
>> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
>> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
>> tigervncserver:798:     for (; $i >= 0; $i = $i-1) {
>> tigervncserver:804:     if ($i < 0) {
>> tigervncserver:805:       print STDERR "$PROG: ".getCommand("Xtigervnc")." did not start up, please look into '$desktopLog' to determine the reason! $i\n";
>> tigervncserver:99:   my ($cmd) = @_;
>> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
tigervncserver: /usr/bin/Xtigervnc did not start up, please look into '/root/.vnc/localhost:1.log' to determine the reason! -2
>> tigervncserver:806:       if (kill(0, $xvncServerPid)) {
>> tigervncserver:809:         &cleanStale($options,$options->{'displayNumber'},0);
>> tigervncserver:449:   my ($options, $usedDisplay, $stale) = @_;
>> tigervncserver:450:   my $pidFile  = pidFile($options,$usedDisplay);
>> tigervncserver:430:   my ($options,$usedDisplay) = @_;
>> tigervncserver:431:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
>> tigervncserver:432:   return "$options->{'vncUserDir'}/$HOSTFQDN:$usedDisplay.pid";
>> tigervncserver:451:   my @x11Locks = ("/tmp/.X$usedDisplay-lock", "/tmp/.X11-unix/X$usedDisplay");
>> tigervncserver:454:   my $msg = "";
>> tigervncserver:455:   if (-e $pidFile) {
>> tigervncserver:456:     unless ($options->{'dry-run'} || unlink($pidFile) || $! == &ENOENT) {
>> tigervncserver:462:   if (!$stale || !&checkDisplayNumberUsed($usedDisplay)) {
>> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
>> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
>> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
>> tigervncserver:811:       exit 1;
root@localhost:/usr/bin# 
Display all 274 possibilities? (y or n)
root@localhost:/usr/bin# 
root@localhost:/usr/bin#