Switch from short options to long ones for eu-unstrip/eu-readelf/grep-aptavail
They are more informative and understandable when reading the code.
Paul Wise
6 years ago
109 | 109 | sub get_build_ids_from_core |
110 | 110 | { |
111 | 111 | my ($filename) = @_; |
112 | my $output = capturex(qw(eu-unstrip -n --core), $filename); | |
112 | my $output = capturex(qw(eu-unstrip --list-only --core), $filename); | |
113 | 113 | |
114 | 114 | return parse_eu_unstrip($output); |
115 | 115 | } |
117 | 117 | sub get_build_ids_from_pid |
118 | 118 | { |
119 | 119 | my ($pid) = @_; |
120 | my $output = capturex(qw(eu-unstrip -n -p), $pid); | |
120 | my $output = capturex(qw(eu-unstrip --list-only --pid), $pid); | |
121 | 121 | chomp $output; |
122 | 122 | |
123 | 123 | return parse_eu_unstrip($output); |
129 | 129 | |
130 | 130 | my $output; |
131 | 131 | eval { |
132 | $output = capturex(qw(grep-aptavail -s Package -F Build-IDs), $id); | |
132 | $output = capturex(qw(grep-aptavail --show-field Package --field Build-IDs), $id); | |
133 | 133 | }; |
134 | 134 | if ($@) { |
135 | 135 | return; |
150 | 150 | sub is_core_file |
151 | 151 | { |
152 | 152 | my ($filename) = (@_); |
153 | my $output = capturex(qw(eu-readelf -h), $filename); | |
153 | my $output = capturex(qw(eu-readelf --file-header), $filename); | |
154 | 154 | if ($output =~ /^\s*Type:\s*CORE/m) { |
155 | 155 | return 1; |
156 | 156 | } |