Commit 65ab0a42 authored by Simon McVittie's avatar Simon McVittie
Browse files

tests: Silence some Perl warnings


Signed-off-by: Simon McVittie's avatarSimon McVittie <smcv@collabora.com>
parent 22da8416
......@@ -344,14 +344,14 @@ sub get_symbols_with_nm {
if ($line =~ m/^[[:xdigit:]]+\s+[ABCDGIRSTW]+\s+([^@]+)(\@\@?.*)?/) {
my $symbol = $1;
my $version = $2;
if ($version =~ m/^(\@\@?[^@]+)\1$/) {
if (defined $version && $version =~ m/^(\@\@?[^@]+)\1$/) {
# Ignore doubled symbol-version suffix.
# https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=964457
$version = $1;
}
require CapsuleTestDpkg;
next if CapsuleTestDpkg::symbol_is_blacklisted($symbol);
next if "\@\@$symbol" eq $version;
next if defined $version && "\@\@$symbol" eq $version;
# Put them in the same format that capsule-symbols uses
if (length $version && $version ne '@@Base') {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment