Trying run.pl to run Glib::Object::Introspection on compile time.

This commit is contained in:
Sergiotarxz 2024-11-11 12:16:05 +01:00
parent 6eb838904b
commit ef58b9b8f9

19
run.pl
View File

@ -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();