#!/usr/bin/env perl

use strict;
use Carp;
use warnings;

my $ProgName =  $0;
   $ProgName =~ s@.*/@@;

my $PRODTREE  = $ENV {'PRODTREE'};
my $TargetExe = "$PRODTREE/qemu/xbin/$ProgName";
die unless -f $TargetExe;

my @pkg = qw
(
    alsa        attr        cairo       curl
    eudev       fuse310     gnutls3     gtkcore
    jackone     jpeg        libnfs      libpng
    libsasl     libseccomp  libslirp    libssh
    libusb      pulseaudio  sdl2        usbredir
    vte         xorg        zlib        zstd
    elfutils    keyutils    ncurses
    spice-server
);

my $L = $ENV {'LD_LIBRARY_PATH'};
   $L = "" unless defined $L;

for my $pkg (@pkg)
{
    $L = "$PRODTREE/$pkg/lib:$L";
}
$L =~ s@:\z@@;
$ENV {'LD_LIBRARY_PATH'} = $L;

unshift (@ARGV, $ProgName);
exec { $TargetExe } @ARGV;