autopkgtest: properly quote $cs in perl scripts

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/adt/acommon b/adt/acommon
index 961294659a98b611aff99d23d4a8d280f3dac386..714245a4435be8a30c49a7c3c83793816738a47f 100644 (file)
--- a/adt/acommon
+++ b/adt/acommon
@@ -148,9 +148,9 @@ setup-host () {
     local unwanted_deps=$(perl -ne '
        next if m{^(?:userv-utils|libnetaddr-ip-perl|net-tools)$};
        next if m{^hippotat-'"$cs"'$};
-       next if m{^(?:iptables|rsyslog|authbind)$} && '"$cs"' eq "server";
+       next if m{^(?:iptables|rsyslog|authbind)$} && "'"$cs"'" eq "server";
        # TODO for rsyslog, record bug number here
-       next if m{^(?:orphan-sysvinit-scripts)$} && '"$cs"' eq "server";
+       next if m{^(?:orphan-sysvinit-scripts)$} && "'"$cs"'" eq "server";
        print;
     ' $tmp/$cs-unwanted-deps)
     in- $cs apt-mark auto $unwanted_deps