[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Patrice Dumas |
Date: |
Tue, 31 Aug 2021 04:30:00 -0400 (EDT) |
branch: master
commit 1660c113000f411b78206b469025965403b94bec
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 31 09:44:00 2021 +0200
* tp/Texinfo/XSLoader.pm (init): pass warnings and die if
the require of perl module associated with XS parser failed.
---
ChangeLog | 7 ++++++-
tp/Texinfo/XSLoader.pm | 4 ++++
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 9d8ce5b..a6c2d4e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,9 @@
-2021-08-30 Patrice Dumas <pertusus@free.fr>
+2021-08-31 Patrice Dumas <pertusus@free.fr>
+
+ * tp/Texinfo/XSLoader.pm (init): pass warnings and die if
+ the require of perl module associated with XS parser failed.
+
+2021-08-31 Patrice Dumas <pertusus@free.fr>
* tp/Texinfo/Transformations.pm (_print_down_menus): remove
unused argument.
diff --git a/tp/Texinfo/XSLoader.pm b/tp/Texinfo/XSLoader.pm
index 47df46b..247254f 100644
--- a/tp/Texinfo/XSLoader.pm
+++ b/tp/Texinfo/XSLoader.pm
@@ -205,6 +205,10 @@ sub init {
if ($perl_extra_file) {
eval "require $perl_extra_file";
+ if ($@) {
+ warn();
+ die "Error loading $perl_extra_file\n";
+ }
}
return $module;