v1.0.11

lib/Exd.xs

@@ -9,13 +9,6 @@
 
 FcConfig *old_system_config = NULL;
 
-void
-exd_fileformat_fontconfig__restore_system_config_c(SV *self) {
-    if (old_system_config != NULL) {
-        FcConfigSetCurrent(old_system_config);
-    }
-}
-
 void
 exd_fileformat_fontconfig__set_current_c(SV *self, char *font_dir) {
     if (old_system_config == NULL) {
@@ -110,8 +103,6 @@ AV * exd_fileformat_fontconfig__list_fonts_c(SV *self, char *font_dir)
 
 void exd_fileformat_fontconfig__set_current_c(SV *self, char *font_dir)
 
-void exd_fileformat_fontconfig__restore_system_config_c(SV *self)
-
 MODULE = Exd PACKAGE = Exd::Fontconfig PREFIX = exd_fontconfig_
 
 AV * exd_fontconfig__list_fonts_c(SV *self)

lib/Exd/FileFormat/Fontconfig.pm

@@ -22,10 +22,6 @@ sub set_current($self) {
     $self->_set_current_c( '' . $dir );
 }
 
-sub restore_system_config($self) {
-    $self->_restore_system_config_c;
-}
-
 sub list_fonts($self) {
     my $fonts = $self->_list_fonts_c($self->_font_dir->child('dir'));
     return $fonts;

me.sergiotarxz.Exd.metainfo.xml

@@ -30,6 +30,11 @@
 
 
 <releases>
+  <release version="v1.0.11" date="2024-11-11">
+    <description>
+        <p>Better startup script to run Glib::Object::Introspection INIT code</p>
+    </description>
+  </release>
   <release version="v1.0.10" date="2024-11-10">
     <description>
         <p>Removing Inline::C usage for XS</p>

run.pl

@@ -1,9 +1,22 @@
 #!/usr/bin/env perl
 
 use v5.40.0;
-
 use strict;
 use warnings;
 
-chdir '/app/Hiperthermia/';
+use File::Basename qw/dirname/;
-require '/app/Hiperthermia/scripts/main.pl';
+
+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();

scripts/main.pl

@@ -5,6 +5,15 @@ use strict;
 use warnings;
 
 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;
 
 use Exd::Gui;