From ef58b9b8f91db4a5401e46166a054afa377d2b1c Mon Sep 17 00:00:00 2001 From: Sergiotarxz Date: Mon, 11 Nov 2024 12:16:05 +0100 Subject: [PATCH] Trying run.pl to run Glib::Object::Introspection on compile time. --- run.pl | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/run.pl b/run.pl index fe1bc35..1b3bd7a 100755 --- a/run.pl +++ b/run.pl @@ -1,9 +1,22 @@ #!/usr/bin/env perl use v5.40.0; - use strict; use warnings; -chdir '/app/Hiperthermia/'; -require '/app/Hiperthermia/scripts/main.pl'; +use File::Basename qw/dirname/; + +BEGIN { + open my $fh, '>&', \*STDERR; + open STDERR, '>', '/dev/null'; + system 'perl', 'Build.PL'; + system 'perl', 'Build', 'build'; + open STDERR, '>&', $fh; +}; + +use blib '/app/Hiperthermia'; +chdir '/app/Hiperthermia'; + +use Exd::Gui; + +Exd::Gui->new->start();