API tools faq
paste
Advertisement
s243a

tightvncserver trace

s243a
Aug 9th, 2018
234
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 66.85 KB | None | 0 0
raw download clone embed print report
  1. #https://stackoverflow.com/questions/3852395/is-there-a-way-to-turn-on-tracing-in-perl-equivalent-to-bash-x#3852412
  2. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  3. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  4. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  5. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  6. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  7. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  8. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  9. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  10. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  11. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  12. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  13. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  14. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  15. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  16. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  17. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  18. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  19. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  20. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  21. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  22. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  23. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  24. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  25. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  26. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  27. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  28. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  29. >> /usr/share/perl/5.24/Getopt/Long.pm:851:     $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
  30. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  31. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  32. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  33. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  34. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  35. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  36. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  37. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  38. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  39. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  40. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  41. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  42. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  43. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  44. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  45. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  46. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  47. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  48. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  49. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  50. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  51. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  52. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  53. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  54. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  55. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  56. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  57. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  58. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  59. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  60. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  61. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  62. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  63. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  64. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  65. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  66. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  67. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  68. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  69. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  70. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  71. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  72. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  73. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  74. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  75. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  76. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  77. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  78. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  79. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  80. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  81. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  82. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  83. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  84. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  85. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  86. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  87. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  88. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  89. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  90. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  91. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  92. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  93. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  94. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  95. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  96. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  97. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  98. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  99. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  100. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  101. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  102. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  103. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  104. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  105. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  106. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  107. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  108. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  109. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  110. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  111. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  112. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  113. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  114. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  115. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  116. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  117. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  118. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  119. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  120. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  121. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  122. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  123. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  124. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  125. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  126. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  127. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  128. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  129. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  130. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  131. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  132. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  133. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  134. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  135. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  136. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  137. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  138. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  139. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  140. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  141. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  142. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  143. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  144. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  145. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  146. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  147. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  148. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  149. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  150. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  151. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  152. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  153. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  154. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  155. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  156. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  157. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  158. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  159. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  160. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  161. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  162. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  163. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  164. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  165. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  166. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  167. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  168. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  169. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  170. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  171. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  172. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  173. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  174. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  175. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  176. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  177. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  178. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  179. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  180. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  181. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  182. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  183. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  184. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  185. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  186. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  187. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  188. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  189. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  190. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  191. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  192. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  193. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  194. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  195. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  196. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  197. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  198. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  199. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  200. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  201. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  202. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  203. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  204. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  205. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  206. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  207. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  208. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  209. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  210. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  211. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  212. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  213. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  214. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  215. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  216. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  217. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  218. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  219. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  220. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  221. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  222. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  223. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  224. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  225. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  226. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  227. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  228. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  229. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  230. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  231. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  232. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  233. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  234. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  235. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  236. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  237. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  238. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  239. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  240. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  241. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  242. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  243. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  244. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  245. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  246. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  247. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  248. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  249. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  250. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  251. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  252. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  253. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  254. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  255. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  256. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  257. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  258. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  259. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  260. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  261. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  262. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  263. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  264. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  265. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  266. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  267. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  268. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  269. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  270. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  271. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  272. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  273. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  274. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  275. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  276. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  277. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  278. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  279. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  280. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  281. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  282. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  283. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  284. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  285. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  286. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  287. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  288. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  289. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  290. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  291. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  292. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  293. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  294. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  295. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  296. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  297. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  298. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  299. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  300. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  301. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  302. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  303. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  304. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  305. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  306. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  307. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  308. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  309. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  310. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  311. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  312. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  313. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  314. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  315. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  316. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  317. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  318. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  319. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  320. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  321. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  322. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  323. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  324. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  325. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  326. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  327. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  328. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  329. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  330. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  331. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  332. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  333. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  334. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  335. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  336. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  337. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  338. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  339. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  340. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  341. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  342. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  343. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  344. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  345. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  346. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  347. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  348. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  349. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  350. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  351. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  352. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  353. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  354. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  355. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  356. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  357. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  358. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  359. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  360. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  361. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  362. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  363. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  364. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  365. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  366. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  367. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  368. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  369. >> /usr/share/perl/5.24/Getopt/Long.pm:865:     my ($mand, $type, $dest) =
  370. >> /usr/share/perl/5.24/Getopt/Long.pm:867:     return (undef, "Cannot repeat while bundling: \"$opt\"\n")
  371. >> /usr/share/perl/5.24/Getopt/Long.pm:869:     my ($mi, $cm, $ma) = ($5, $6, $7);
  372. >> /usr/share/perl/5.24/Getopt/Long.pm:870:     return (undef, "{0} is useless in option spec: \"$opt\"\n")
  373. >> /usr/share/perl/5.24/Getopt/Long.pm:873:     $type = 'i' if $type eq 'n';
  374. >> /usr/share/perl/5.24/Getopt/Long.pm:874:     $dest ||= '$';
  375. >> /usr/share/perl/5.24/Getopt/Long.pm:875:     $dest = $dest eq '@' ? CTL_DEST_ARRAY
  376. >> /usr/share/perl/5.24/Getopt/Long.pm:878:     $mi = $mand eq '=' ? 1 : 0 unless defined $mi;
  377. >> /usr/share/perl/5.24/Getopt/Long.pm:880:     $mand = $mi ? '=' : ':';
  378. >> /usr/share/perl/5.24/Getopt/Long.pm:882:     $ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
  379. >> /usr/share/perl/5.24/Getopt/Long.pm:883:     return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
  380. >> /usr/share/perl/5.24/Getopt/Long.pm:885:     return (undef, "Max less than min in option spec: \"$opt\"\n")
  381. >> /usr/share/perl/5.24/Getopt/Long.pm:889:     $entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
  382. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  383. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  384. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  385. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  386. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  387. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  388. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  389. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  390. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  391. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  392. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  393. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  394. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  395. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  396. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  397. >> /usr/share/perl/5.24/Getopt/Long.pm:355:     my $opt = shift (@optionlist);
  398. >> /usr/share/perl/5.24/Getopt/Long.pm:357:     unless ( defined($opt) ) {
  399. >> /usr/share/perl/5.24/Getopt/Long.pm:363:     $opt = $+ if $opt =~ /^$prefix+(.*)$/s;
  400. >> /usr/share/perl/5.24/Getopt/Long.pm:365:     if ( $opt eq '<>' ) {
  401. >> /usr/share/perl/5.24/Getopt/Long.pm:385:     my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
  402. >> /usr/share/perl/5.24/Getopt/Long.pm:800:     my ($opt, $opctl) = @_;
  403. >> /usr/share/perl/5.24/Getopt/Long.pm:803:     if ( $opt !~ m;^
  404. >> /usr/share/perl/5.24/Getopt/Long.pm:826:     my ($names, $spec) = ($1, $2);
  405. >> /usr/share/perl/5.24/Getopt/Long.pm:827:     $spec = '' unless defined $spec;
  406. >> /usr/share/perl/5.24/Getopt/Long.pm:835:     my $orig;
  407. >> /usr/share/perl/5.24/Getopt/Long.pm:837:     my @names;
  408. >> /usr/share/perl/5.24/Getopt/Long.pm:838:     if ( defined $names ) {
  409. >> /usr/share/perl/5.24/Getopt/Long.pm:839:     @names =  split (/\|/, $names);
  410. >> /usr/share/perl/5.24/Getopt/Long.pm:840:     $orig = $names[0];
  411. >> /usr/share/perl/5.24/Getopt/Long.pm:848:     my $entry;
  412. >> /usr/share/perl/5.24/Getopt/Long.pm:849:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
  413. >> /usr/share/perl/5.24/Getopt/Long.pm:851:     $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
  414. >> /usr/share/perl/5.24/Getopt/Long.pm:893:     my $dups = '';
  415. >> /usr/share/perl/5.24/Getopt/Long.pm:894:     foreach ( @names ) {
  416. >> /usr/share/perl/5.24/Getopt/Long.pm:896:     $_ = lc ($_)
  417. >> /usr/share/perl/5.24/Getopt/Long.pm:899:     if ( exists $opctl->{$_} ) {
  418. >> /usr/share/perl/5.24/Getopt/Long.pm:903:     if ( $spec eq '!' ) {
  419. >> /usr/share/perl/5.24/Getopt/Long.pm:910:         $opctl->{$_} = $entry;
  420. >> /usr/share/perl/5.24/Getopt/Long.pm:914:     if ( $dups && $^W ) {
  421. >> /usr/share/perl/5.24/Getopt/Long.pm:919:     ($names[0], $orig);
  422. >> /usr/share/perl/5.24/Getopt/Long.pm:386:     unless ( defined $name ) {
  423. >> /usr/share/perl/5.24/Getopt/Long.pm:397:     if ( defined $userlinkage ) {
  424. >> /usr/share/perl/5.24/Getopt/Long.pm:414:     if ( @optionlist > 0 && ref($optionlist[0]) ) {
  425. >> /usr/share/perl/5.24/Getopt/Long.pm:415:         print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
  426. >> /usr/share/perl/5.24/Getopt/Long.pm:417:         my $rl = ref($linkage{$orig} = shift (@optionlist));
  427. >> /usr/share/perl/5.24/Getopt/Long.pm:419:         if ( $rl eq "ARRAY" ) {
  428. >> /usr/share/perl/5.24/Getopt/Long.pm:465:     if ( $opctl{$name}[CTL_TYPE] eq 'I'
  429. >> /usr/share/perl/5.24/Getopt/Long.pm:474:     $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n"
  430. >> /usr/share/perl/5.24/Getopt/Long.pm:478:     die ($error) if $error;
  431. >> /usr/share/perl/5.24/Getopt/Long.pm:479:     $error = 0;
  432. >> /usr/share/perl/5.24/Getopt/Long.pm:482:     if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) {
  433. >> /usr/share/perl/5.24/Getopt/Long.pm:489:     if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) {
  434. >> /usr/share/perl/5.24/Getopt/Long.pm:498:     if ( $debug ) {
  435. >> /usr/share/perl/5.24/Getopt/Long.pm:508:     my $goon = 1;
  436. >> /usr/share/perl/5.24/Getopt/Long.pm:509:     while ( $goon && @$argv > 0 ) {
  437. >> /usr/share/perl/5.24/Getopt/Long.pm:771:     if ( @ret && $order == $PERMUTE ) {
  438. >> /usr/share/perl/5.24/Getopt/Long.pm:778:     return ($error == 0);
  439. >> /usr/share/perl/5.24/Getopt/Long.pm:206:     Getopt::Long::Configure ($save);
  440. >> /usr/share/perl/5.24/Getopt/Long.pm:1335:     my (@options) = @_;
  441. >> /usr/share/perl/5.24/Getopt/Long.pm:1337:     my $prevconfig =
  442. >> /usr/share/perl/5.24/Getopt/Long.pm:1343:     if ( ref($options[0]) eq 'ARRAY' ) {
  443. >> /usr/share/perl/5.24/Getopt/Long.pm:1347:      $longprefix, $bundling_values ) = @{shift(@options)};
  444. >> /usr/share/perl/5.24/Getopt/Long.pm:1347:      $longprefix, $bundling_values ) = @{shift(@options)};
  445. >> /usr/share/perl/5.24/Getopt/Long.pm:1350:     my $opt;
  446. >> /usr/share/perl/5.24/Getopt/Long.pm:1351:     foreach $opt ( @options ) {
  447. >> /usr/share/perl/5.24/Getopt/Long.pm:1451:     $prevconfig;
  448. >> /usr/share/perl/5.24/Getopt/Long.pm:209:     die ($@) if $@;
  449. >> /usr/share/perl/5.24/Getopt/Long.pm:210:     return $ret;
  450. >> tigervncserver:1218:     &usage(!$rc) if (!$rc || $opts{'help'});
  451. >> tigervncserver:1220:     if ((@ARGV > 0) && ($ARGV[0] =~ /^([@\w\d.]*)(?::(\d+(?:\.\d+)?|\*))?$/)) {
  452. >> tigervncserver:1238:       $options->{'displayHost'}   = $HOSTFQDN;
  453. >> tigervncserver:1241:     if ($options->{'displayHost'} ne $HOST &&
  454. >> tigervncserver:1303:     unless (defined $options->{'PlainUsers'}) {
  455. >> tigervncserver:1304:       chomp($options->{'PlainUsers'} = `/usr/bin/id -u -n`);
  456. >> tigervncserver:1306:     unless (defined $options->{'PAMService'}) {
  457. >> tigervncserver:1307:       if (-f '/etc/pam.d/vnc') {
  458. >> tigervncserver:1311:         $options->{'PAMService'} = 'tigervnc';
  459. >> tigervncserver:1315:     foreach my $key (keys %opts) {
  460. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  461. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  462. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  463. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  464. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  465. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  466. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  467. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  468. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  469. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  470. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  471. >> tigervncserver:1316:       $options->{$key} = $opts{$key} if defined $opts{$key};
  472. >> tigervncserver:1318:     if ($opts{'noxstartup'}) {
  473. >> tigervncserver:1322:     if (defined $opts{'vncPasswdFile'}) {
  474. >> tigervncserver:1325:       $options->{'passwordArgSpecified'} = 0;
  475. >> tigervncserver:1327:     if (defined $options->{'localhost'}) {
  476. >> tigervncserver:1330:     unless (defined $options->{'SecurityTypes'}) {
  477. >> tigervncserver:1331:       if (!defined($options->{'localhost'}) || $options->{'localhost'}) {
  478. >> tigervncserver:1332:         $options->{'SecurityTypes'} = 'VncAuth';
  479. >> tigervncserver:1333:         $options->{'localhost'}     = 1;
  480. >> tigervncserver:1339:     $options->{'vncAuthEnabled'} = 0;
  481. >> tigervncserver:1340:     $options->{'noneAuthEnabled'} = 0;
  482. >> tigervncserver:1341:     $options->{'plainAuthEnabled'} = 0;
  483. >> tigervncserver:1342:     $options->{'x509CertRequired'} = 0;
  484. >> tigervncserver:1343:     $options->{'haveSSLEncryption'} = 0;
  485. >> tigervncserver:1344:     foreach my $securityType (split(',', $options->{'SecurityTypes'})) {
  486. >> tigervncserver:1345:       $options->{'vncAuthEnabled'} = 1    if $securityType =~ m/^(?:.*vnc|vncauth)$/i;
  487. >> tigervncserver:1346:       $options->{'noneAuthEnabled'} = 1   if $securityType =~ m/none$/i;
  488. >> tigervncserver:1347:       $options->{'plainAuthEnabled'} = 1  if $securityType =~ m/plain$/i;
  489. >> tigervncserver:1348:       $options->{'x509CertRequired'} = 1  if $securityType =~ m/^x509/i;
  490. >> tigervncserver:1349:       $options->{'haveSSLEncryption'} = 1 if $securityType =~ m/^(?:x509|tls)/i;
  491. >> tigervncserver:1352:     if ($options->{'plainAuthEnabled'} &&
  492. >> tigervncserver:1360:     unless (defined $options->{'localhost'}) {
  493. >> tigervncserver:1370:     if (!$options->{'localhost'} && $options->{'noneAuthEnabled'} &&
  494. >> tigervncserver:1377:     if ($options->{'noneAuthEnabled'} &&
  495. >> tigervncserver:1384:   my $runningUserVncservers = &runningUserVncservers($options);
  496. >> tigervncserver:474:   my ($options) = @_;
  497. >> tigervncserver:475:   my %runningUserVncservers = ();
  498. >> tigervncserver:477:   my $d = DirHandle->new($options->{'vncUserDir'});
  499. >> /usr/share/perl/5.24/DirHandle.pm:35:     @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
  500. >> /usr/share/perl/5.24/DirHandle.pm:36:     my $class = shift;
  501. >> /usr/share/perl/5.24/DirHandle.pm:37:     my $dh = gensym;
  502. >> /usr/share/perl/5.24/Symbol.pm:23:     my $name = "GEN" . $genseq++;
  503. >> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
  504. >> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
  505. >> /usr/share/perl/5.24/Symbol.pm:25:     delete $$genpkg{$name};
  506. >> /usr/share/perl/5.24/Symbol.pm:26:     $ref;
  507. >> /usr/share/perl/5.24/DirHandle.pm:38:     if (@_) {
  508. >> /usr/share/perl/5.24/DirHandle.pm:39:    DirHandle::open($dh, $_[0])
  509. >> /usr/share/perl/5.24/DirHandle.pm:55:     @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
  510. >> /usr/share/perl/5.24/DirHandle.pm:56:     my ($dh, $dirname) = @_;
  511. >> /usr/share/perl/5.24/DirHandle.pm:57:     opendir($dh, $dirname);
  512. >> /usr/share/perl/5.24/DirHandle.pm:42:     bless $dh, $class;
  513. >> tigervncserver:478:   if (defined $d) {
  514. >> tigervncserver:479:     while (defined(my $entry = $d->read)) {
  515. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  516. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  517. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  518. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  519. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  520. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  521. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  522. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  523. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  524. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  525. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  526. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  527. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  528. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  529. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  530. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  531. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  532. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  533. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  534. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  535. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  536. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  537. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  538. >> tigervncserver:480:       next unless $entry =~ m/^\Q$HOSTFQDN\E:(\d+)\.pid$/;
  539. >> /usr/share/perl/5.24/DirHandle.pm:67:     @_ == 1 or croak 'usage: $dh->read()';
  540. >> /usr/share/perl/5.24/DirHandle.pm:68:     my ($dh) = @_;
  541. >> /usr/share/perl/5.24/DirHandle.pm:69:     readdir($dh);
  542. >> tigervncserver:510:     undef $d;
  543. >> /usr/share/perl/5.24/DirHandle.pm:46:     my ($dh) = @_;
  544. >> /usr/share/perl/5.24/DirHandle.pm:49:     local($., $@, $!, $^E, $?);
  545. >> /usr/share/perl/5.24/DirHandle.pm:51:     closedir($dh);
  546. >> tigervncserver:512:   return \%runningUserVncservers;
  547. >> tigervncserver:1385:   my @vncs = ();
  548. >> tigervncserver:1386:   if (defined $options->{'displayNumber'}) {
  549. >> tigervncserver:1409:     push @vncs, &getDisplayNumber();
  550. >> tigervncserver:410:   foreach my $n (1..99) {
  551. >> tigervncserver:411:     return $n if &checkDisplayNumberAvailable($n);
  552. >> tigervncserver:385:   my ($n) = @_;
  553. >> tigervncserver:387:   return 0 if &checkDisplayNumberUsed($n);
  554. >> tigervncserver:373:   my ($n) = @_;
  555. >> tigervncserver:374:   return &checkTCPPortUsed( 5900 + $n ) ||
  556. >> tigervncserver:352:   my ($port) = @_;
  557. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  558. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  559. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  560. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  561. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  562. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  563. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  564. >> tigervncserver:362:   close(S);
  565. >> tigervncserver:363:   return 0;
  566. >> tigervncserver:352:   my ($port) = @_;
  567. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  568. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  569. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  570. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  571. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  572. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  573. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  574. >> tigervncserver:362:   close(S);
  575. >> tigervncserver:363:   return 0;
  576. >> tigervncserver:389:   if (-e "/tmp/.X$n-lock") {
  577. >> tigervncserver:395:   if (-e "/tmp/.X11-unix/X$n") {
  578. >> tigervncserver:400:   return 1;
  579. >> tigervncserver:1412:   if ($options->{'kill'}) {
  580. >> tigervncserver:1419:     $options->{'displayNumber'} = $vncs[0];
  581. >> tigervncserver:1421:     &checkGeometryAndDepth($options);
  582. >> tigervncserver:226:   my ( $options ) = @_;
  583. >> tigervncserver:228:   my $wmDecorationWidth;
  584. >> tigervncserver:229:   my $wmDecorationHeight;
  585. >> tigervncserver:231:   if ($options->{'wmDecoration'} =~ /^(\d+)x(\d+)$/) {
  586. >> tigervncserver:232:     ($wmDecorationWidth, $wmDecorationHeight) = ($1,$2);
  587. >> tigervncserver:237:   if ($options->{'geometry'} =~ /^(\d+)x(\d+)$/) {
  588. >> tigervncserver:238:     my ( $width, $height ) = ( $1, $2 );
  589. >> tigervncserver:239:     if ($options->{'usedXDisplayDefaultsGeometry'}) {
  590. >> tigervncserver:243:     if (($width<1) || ($height<1)) {
  591. >> tigervncserver:248:     $width  = int(($width +3)/4)*4;
  592. >> tigervncserver:249:     $height = int(($height+1)/2)*2;
  593. >> tigervncserver:251:     $options->{'geometry'} = "${width}x${height}";
  594. >> tigervncserver:257:   if ($options->{'pixelformat'}) {
  595. >> tigervncserver:268:   if (($options->{'depth'} < 8) || ($options->{'depth'} > 32)) {
  596. >> tigervncserver:1424:       !$runningUserVncservers->{$options->{'displayNumber'}}->{'stale'};
  597. >> tigervncserver:1425:     if (!&checkDisplayNumberAvailable($options->{'displayNumber'}) &&
  598. >> tigervncserver:385:   my ($n) = @_;
  599. >> tigervncserver:387:   return 0 if &checkDisplayNumberUsed($n);
  600. >> tigervncserver:373:   my ($n) = @_;
  601. >> tigervncserver:374:   return &checkTCPPortUsed( 5900 + $n ) ||
  602. >> tigervncserver:352:   my ($port) = @_;
  603. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  604. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  605. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  606. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  607. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  608. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  609. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  610. >> tigervncserver:362:   close(S);
  611. >> tigervncserver:363:   return 0;
  612. >> tigervncserver:352:   my ($port) = @_;
  613. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  614. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  615. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  616. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  617. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  618. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  619. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  620. >> tigervncserver:362:   close(S);
  621. >> tigervncserver:363:   return 0;
  622. >> tigervncserver:389:   if (-e "/tmp/.X$n-lock") {
  623. >> tigervncserver:395:   if (-e "/tmp/.X11-unix/X$n") {
  624. >> tigervncserver:400:   return 1;
  625. >> tigervncserver:1430:     unless (defined $options->{'desktopName'}) {
  626. >> tigervncserver:1431:       $options->{'desktopName'} = "${HOSTFQDN}:$options->{'displayNumber'} ($USER)";
  627. >> tigervncserver:1433:     if ($options->{'useold'} && $haveOld) {
  628. >> tigervncserver:1437:       if ($runningUserVncservers->{$options->{'displayNumber'}} &&
  629. >> tigervncserver:1441:       &startXvncServer( $options );
  630. >> tigervncserver:688:   my ($options) = @_;
  631. >> tigervncserver:689:   my $vncStartup = $options->{'vncStartup'};
  632. >> tigervncserver:690:   my $xstartupArg= $options->{'xstartupArgSpecified'};
  633. >> tigervncserver:691:   my $vncPort    = 5900 + $options->{'displayNumber'};
  634. >> tigervncserver:692:   my $desktopLog = &desktopLog($options);
  635. >> tigervncserver:443:   my ($options,$usedDisplay) = @_;
  636. >> tigervncserver:444:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
  637. >> tigervncserver:445:   return File::Spec->catfile($options->{'vncUserDir'}, "$HOSTFQDN:$usedDisplay.log");
  638. >> tigervncserver:693:   my $pidFile    = &pidFile($options);
  639. >> tigervncserver:430:   my ($options,$usedDisplay) = @_;
  640. >> tigervncserver:431:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
  641. >> tigervncserver:432:   return "$options->{'vncUserDir'}/$HOSTFQDN:$usedDisplay.pid";
  642. >> tigervncserver:696:   &CreateVNCPasswd($options);
  643. >> tigervncserver:611:   my ( $options ) = @_;
  644. >> tigervncserver:616:              $options->{'passwordArgSpecified'};
  645. >> tigervncserver:617:   my $vncPasswdFile = $options->{'vncPasswdFile'};
  646. >> tigervncserver:618:   my $st = stat($vncPasswdFile);
  647. >> /usr/share/perl/5.24/File/stat.pm:205:     my $arg = shift;
  648. >> /usr/share/perl/5.24/File/stat.pm:206:     my $st = populate(CORE::stat $arg);
  649. >> /usr/share/perl/5.24/File/stat.pm:193:     return unless @_;
  650. >> /usr/share/perl/5.24/File/stat.pm:194:     my $stob = new();
  651. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:5:     my ($class, %init) = @_;
  652. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:6:     $class = __PACKAGE__ unless @_;
  653. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:7:     my($r) = [];
  654. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:8:  bless $r, $class;
  655. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:10:     $r->dev( defined($init{'dev'}) ? $init{'dev'} : undef ); # dev
  656. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:27:     my $r = shift;
  657. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:28:     croak 'Too many args to dev' if @_ > 1;
  658. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:29:     @_ ? ($r->[0] = shift) : $r->[0];
  659. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:11:     $r->ino( defined($init{'ino'}) ? $init{'ino'} : undef ); # ino
  660. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:32:     my $r = shift;
  661. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:33:     croak 'Too many args to ino' if @_ > 1;
  662. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:34:     @_ ? ($r->[1] = shift) : $r->[1];
  663. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:12:     $r->mode( defined($init{'mode'}) ? $init{'mode'} : undef ); # mode
  664. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:37:     my $r = shift;
  665. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:38:     croak 'Too many args to mode' if @_ > 1;
  666. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:39:     @_ ? ($r->[2] = shift) : $r->[2];
  667. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:13:     $r->nlink( defined($init{'nlink'}) ? $init{'nlink'} : undef ); # nlink
  668. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:42:     my $r = shift;
  669. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:43:     croak 'Too many args to nlink' if @_ > 1;
  670. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:44:     @_ ? ($r->[3] = shift) : $r->[3];
  671. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:14:     $r->uid( defined($init{'uid'}) ? $init{'uid'} : undef ); # uid
  672. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:47:     my $r = shift;
  673. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:48:     croak 'Too many args to uid' if @_ > 1;
  674. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:49:     @_ ? ($r->[4] = shift) : $r->[4];
  675. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:15:     $r->gid( defined($init{'gid'}) ? $init{'gid'} : undef ); # gid
  676. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:52:     my $r = shift;
  677. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:53:     croak 'Too many args to gid' if @_ > 1;
  678. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:54:     @_ ? ($r->[5] = shift) : $r->[5];
  679. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:16:     $r->rdev( defined($init{'rdev'}) ? $init{'rdev'} : undef ); # rdev
  680. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:57:     my $r = shift;
  681. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:58:     croak 'Too many args to rdev' if @_ > 1;
  682. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:59:     @_ ? ($r->[6] = shift) : $r->[6];
  683. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:17:     $r->size( defined($init{'size'}) ? $init{'size'} : undef ); # size
  684. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:62:     my $r = shift;
  685. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:63:     croak 'Too many args to size' if @_ > 1;
  686. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:64:     @_ ? ($r->[7] = shift) : $r->[7];
  687. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:18:     $r->atime( defined($init{'atime'}) ? $init{'atime'} : undef ); # atime
  688. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:67:     my $r = shift;
  689. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:68:     croak 'Too many args to atime' if @_ > 1;
  690. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:69:     @_ ? ($r->[8] = shift) : $r->[8];
  691. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:19:     $r->mtime( defined($init{'mtime'}) ? $init{'mtime'} : undef ); # mtime
  692. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:72:     my $r = shift;
  693. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:73:     croak 'Too many args to mtime' if @_ > 1;
  694. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:74:     @_ ? ($r->[9] = shift) : $r->[9];
  695. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:20:     $r->ctime( defined($init{'ctime'}) ? $init{'ctime'} : undef ); # ctime
  696. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:77:     my $r = shift;
  697. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:78:     croak 'Too many args to ctime' if @_ > 1;
  698. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:79:     @_ ? ($r->[10] = shift) : $r->[10];
  699. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:21:     $r->blksize( defined($init{'blksize'}) ? $init{'blksize'} : undef ); # blksize
  700. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:82:     my $r = shift;
  701. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:83:     croak 'Too many args to blksize' if @_ > 1;
  702. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:84:     @_ ? ($r->[11] = shift) : $r->[11];
  703. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:22:     $r->blocks( defined($init{'blocks'}) ? $init{'blocks'} : undef ); # blocks
  704. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:87:     my $r = shift;
  705. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:88:     croak 'Too many args to blocks' if @_ > 1;
  706. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:89:     @_ ? ($r->[12] = shift) : $r->[12];
  707. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:24:  $r;
  708. >> /usr/share/perl/5.24/File/stat.pm:195:     @$stob = (
  709. >> /usr/share/perl/5.24/File/stat.pm:199:     return $stob;
  710. >> /usr/share/perl/5.24/File/stat.pm:207:     return $st if defined $st;
  711. >> tigervncserver:620:   if (!defined($st) || ($st->mode & 077)) {
  712. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:37:     my $r = shift;
  713. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:38:     croak 'Too many args to mode' if @_ > 1;
  714. >> (eval 3)[/usr/share/perl/5.24/Class/Struct.pm:230]:39:     @_ ? ($r->[2] = shift) : $r->[2];
  715. >> tigervncserver:698:   &CreateX509Cert($options);
  716. >> tigervncserver:633:   my ( $options ) = @_;
  717. >> tigervncserver:640:             defined $options->{'X509Key'};
  718. >> tigervncserver:699:   &CreateMITCookie($options);
  719. >> tigervncserver:590:   my ( $options ) = @_;
  720. >> tigervncserver:591:   my $displayNumber  = $options->{'displayNumber'};
  721. >> tigervncserver:592:   my $xauthorityFile = $options->{'xauthorityFile'};
  722. >> tigervncserver:593:   my $cookie = `mcookie`; # try mcookie
  723. >> tigervncserver:595:   unless (defined $cookie) {
  724. >> tigervncserver:603:     chomp $cookie;
  725. >> tigervncserver:605:   system(getCommand("xauth"), "-f", "$xauthorityFile", "add", "$HOSTFQDN:$displayNumber", ".", "$cookie");
  726. >> tigervncserver:99:   my ($cmd) = @_;
  727. >> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
  728. /usr/bin/xauth:  error in locking authority file /root/.Xauthority
  729. >> tigervncserver:606:   system(getCommand("xauth"), "-f", "$xauthorityFile", "add", "$HOST/unix:$displayNumber", ".", "$cookie");
  730. >> tigervncserver:99:   my ($cmd) = @_;
  731. >> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
  732. ^[  ^[  ^[  ^[  /usr/bin/xauth:  timeout in locking authority file /root/.Xauthority
  733. >> tigervncserver:702:   if (defined($vncStartup) && !$xstartupArg && !(-e $vncStartup)) {
  734. >> tigervncserver:714:   if (defined($vncStartup) && !$xstartupArg && !(-x $vncStartup)) {
  735. >> tigervncserver:721:   my $pidFileFh  = IO::File->new($pidFile, "w", 0644);
  736. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:34:     my $type = shift;
  737. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:35:     my $class = ref($type) || $type || "IO::File";
  738. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:36:     @_ >= 0 && @_ <= 3
  739. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:38:     my $fh = $class->SUPER::new();
  740. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:54:     my $class = ref($_[0]) || $_[0] || "IO::Handle";
  741. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:55:     if (@_ != 1) {
  742. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:67:     my $io = gensym;
  743. >> /usr/share/perl/5.24/Symbol.pm:23:     my $name = "GEN" . $genseq++;
  744. >> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
  745. >> /usr/share/perl/5.24/Symbol.pm:24:     my $ref = \*{$genpkg . $name};
  746. >> /usr/share/perl/5.24/Symbol.pm:25:     delete $$genpkg{$name};
  747. >> /usr/share/perl/5.24/Symbol.pm:26:     $ref;
  748. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:68:     bless $io, $class;
  749. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:39:     if (@_) {
  750. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:40:  $fh->open(@_)
  751. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:51:     @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
  752. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:52:     my ($fh, $file) = @_;
  753. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:53:     if (@_ > 2) {
  754. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:54:  my ($mode, $perms) = @_[2, 3];
  755. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:55:  if ($mode =~ /^\d+$/) {
  756. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:62:             return open($fh, IO::Handle::_open_mode_string($mode), $file);
  757. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:94:     my ($mode) = @_;
  758. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:95:     $mode =~ /^\+?(<|>>?)$/
  759. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:100:     $mode;
  760. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/File.pm:43:     $fh;
  761. >> tigervncserver:722:   unless (defined $pidFileFh) {
  762. >> tigervncserver:727:   my $xvncServerPid = fork();
  763. >> tigervncserver:728:   if ($xvncServerPid == 0) {
  764. >> tigervncserver:780:   $pidFileFh->print($xvncServerPid."\n");
  765. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:157:     @_ or croak 'usage: $io->print(ARGS)';
  766. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:158:     my $this = shift;
  767. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:159:     print $this @_;
  768. >> tigervncserver:781:   $pidFileFh->close();
  769. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:123:     @_ == 1 or croak 'usage: $io->close()';
  770. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:124:     my($io) = @_;
  771. >> /usr/lib/aarch64-linux-gnu/perl/5.24/IO/Handle.pm:126:     close($io);
  772. >> tigervncserver:787:           'usedDisplay' => $options->{'displayNumber'}
  773. >> tigervncserver:792:     my $i = 300;
  774. >> tigervncserver:792:     my $i = 300;
  775. >> tigervncserver:793:     for (; $i >= 0; $i = $i-1) {
  776. >> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
  777. >> tigervncserver:728:   if ($xvncServerPid == 0) {
  778. >> tigervncserver:352:   my ($port) = @_;
  779. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  780. >> tigervncserver:730:     my @cmd = (getCommand("Xtigervnc"));
  781. >> tigervncserver:99:   my ($cmd) = @_;
  782. >> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
  783. >> tigervncserver:731:     push @cmd, ":".$options->{'displayNumber'};
  784. >> tigervncserver:732:     if (defined $options->{'desktopName'}) {
  785. >> tigervncserver:733:       push @cmd, '-desktop', $options->{'desktopName'};
  786. >> tigervncserver:735:     if (defined $options->{'vncClasses'} &&
  787. >> tigervncserver:745:     push @cmd, '-auth', $options->{'xauthorityFile'};
  788. >> tigervncserver:746:     push @cmd, '-geometry', $options->{'geometry'} if $options->{'geometry'};
  789. >> tigervncserver:747:     push @cmd, '-depth', $options->{'depth'} if $options->{'depth'};
  790. >> tigervncserver:748:     push @cmd, '-pixelformat', $options->{'pixelformat'} if $options->{'pixelformat'};
  791. >> tigervncserver:749:     push @cmd, '-rfbwait', $options->{'rfbwait'};
  792. >> tigervncserver:750:     push @cmd, '-rfbauth', $options->{'vncPasswdFile'} if $options->{'vncAuthEnabled'};
  793. >> tigervncserver:751:     push @cmd, '-rfbport', $vncPort;
  794. >> tigervncserver:752:     push @cmd, '-pn';
  795. >> tigervncserver:753:     push @cmd, '-localhost' if $options->{'localhost'} =~ m/^(?:yes|true|1)$/i;
  796. >> tigervncserver:754:     push @cmd, '-fp', $options->{'fontPath'} if $options->{'fontPath'};
  797. >> tigervncserver:755:     push @cmd, "-SecurityTypes", $options->{'SecurityTypes'} if defined $options->{'SecurityTypes'};
  798. >> tigervncserver:756:     if ($options->{'plainAuthEnabled'}) {
  799. >> tigervncserver:760:     if ($options->{'x509CertRequired'}) {
  800. >> tigervncserver:764:     push @cmd, @ARGV;
  801. >> tigervncserver:766:     print join(" ",@cmd), "\n" if $options->{'verbose'};
  802. >> tigervncserver:767:     open(OLDERR, '>&', \*STDERR); # save old STDERR
  803. >> tigervncserver:768:     open(STDOUT, '>>', $desktopLog);
  804. >> tigervncserver:769:     open(STDERR, '>>', $desktopLog);
  805. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  806. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  807. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  808. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  809. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  810. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  811. >> tigervncserver:362:   close(S);
  812. >> tigervncserver:363:   return 0;
  813. >> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
  814. >> tigervncserver:796:       usleep 100000;
  815. >> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
  816. >> tigervncserver:352:   my ($port) = @_;
  817. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  818. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  819. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  820. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  821. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  822. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  823. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  824. >> tigervncserver:362:   close(S);
  825. >> tigervncserver:363:   return 0;
  826. >> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
  827. >> tigervncserver:796:       usleep 100000;
  828. >> tigervncserver:794:       last if &checkTCPPortUsed(5900 + $options->{'displayNumber'});
  829. >> tigervncserver:352:   my ($port) = @_;
  830. >> tigervncserver:353:   my $proto  = getprotobyname('tcp');
  831. >> tigervncserver:355:   socket(S, AF_INET, SOCK_STREAM, $proto) || die "$PROG: socket failed: $!";
  832. >> tigervncserver:356:   setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "$PROG: setsockopt failed: $!";
  833. >> tigervncserver:357:   if (!bind(S, sockaddr_in($port, INADDR_ANY))) {
  834. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:147:     if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
  835. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:156:  croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
  836. >> /usr/lib/aarch64-linux-gnu/perl/5.24/Socket.pm:157:         pack_sockaddr_in(@_);
  837. >> tigervncserver:362:   close(S);
  838. >> tigervncserver:363:   return 0;
  839. >> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
  840. >> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
  841. >> tigervncserver:795:       if ($xvncServerPid == waitpid($xvncServerPid, WNOHANG)) { $i = -2; last; }
  842. >> tigervncserver:798:     for (; $i >= 0; $i = $i-1) {
  843. >> tigervncserver:804:     if ($i < 0) {
  844. >> tigervncserver:805:       print STDERR "$PROG: ".getCommand("Xtigervnc")." did not start up, please look into '$desktopLog' to determine the reason! $i\n";
  845. >> tigervncserver:99:   my ($cmd) = @_;
  846. >> tigervncserver:100:   return $CMDS{$cmd} if defined $CMDS{$cmd};
  847. tigervncserver: /usr/bin/Xtigervnc did not start up, please look into '/root/.vnc/localhost:1.log' to determine the reason! -2
  848. >> tigervncserver:806:       if (kill(0, $xvncServerPid)) {
  849. >> tigervncserver:809:         &cleanStale($options,$options->{'displayNumber'},0);
  850. >> tigervncserver:449:   my ($options, $usedDisplay, $stale) = @_;
  851. >> tigervncserver:450:   my $pidFile  = pidFile($options,$usedDisplay);
  852. >> tigervncserver:430:   my ($options,$usedDisplay) = @_;
  853. >> tigervncserver:431:   $usedDisplay = $options->{'displayNumber'} unless defined $usedDisplay;
  854. >> tigervncserver:432:   return "$options->{'vncUserDir'}/$HOSTFQDN:$usedDisplay.pid";
  855. >> tigervncserver:451:   my @x11Locks = ("/tmp/.X$usedDisplay-lock", "/tmp/.X11-unix/X$usedDisplay");
  856. >> tigervncserver:454:   my $msg = "";
  857. >> tigervncserver:455:   if (-e $pidFile) {
  858. >> tigervncserver:456:     unless ($options->{'dry-run'} || unlink($pidFile) || $! == &ENOENT) {
  859. >> tigervncserver:462:   if (!$stale || !&checkDisplayNumberUsed($usedDisplay)) {
  860. >> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
  861. >> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
  862. >> tigervncserver:463:     foreach my $entry (grep { -e $_ } @x11Locks) {
  863. >> tigervncserver:811:       exit 1;
  864. root@localhost:/usr/bin#
  865. Display all 274 possibilities? (y or n)
  866. root@localhost:/usr/bin#
  867. root@localhost:/usr/bin#
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!