0xV3NOMx
Linux ip-172-26-7-228 5.4.0-1103-aws #111~18.04.1-Ubuntu SMP Tue May 23 20:04:10 UTC 2023 x86_64

Your IP : 3.22.75.247

Current Path : /proc/self/root/usr/share/dh-exec/
Upload File :
Current File : //proc/self/root/usr/share/dh-exec/dh-exec-subst-multiarch

#! /usr/bin/perl -wnp
##
## Akin to dh_subst_env, this one will try to expand variables within
## its input, but only certain ones, and will fall back to querying
## dpkg-architecture first, before finally giving up.

BEGIN {
        sub qarch {
                my $arch = `dpkg-architecture -q$_[0] 2>/dev/null`;
                chomp ($arch);
                return $arch;
        }
}

s#(\$\{(DEB_(HOST|BUILD)_[^\}]+)\})#qarch($2) || $1#eg;