From 5df9addcaa1f3b9bac44b557ed8fcc0e549ba29a Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Fri, 24 Feb 2023 17:50:56 +0100
Subject: [PATCH 1/2] Makefile.PL - Silence uninitialized warnings

EUMM gets upset because the value should be the .c file name
not undef.
---
 Makefile.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Makefile.PL b/Makefile.PL
index 964aa3a..5e8503d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -67,7 +67,7 @@ WriteMakefile(
     },
     clean             => { FILES => 'DB/DbgrXS.pm' },
     $do_xs ? (
-        XS                => { 'perl5db.xs' => undef },
+        XS                => { 'perl5db.xs' => 'perl5db.c' },
         OBJECT            => 'perl5db.o',
     ) : (
         XS                => { },

From a16a1566873c9add45837dbb43a8b4272ba3dff5 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Fri, 24 Feb 2023 17:51:34 +0100
Subject: [PATCH 2/2] t/152_property_set.t - Handle longer error message on
 5.37.9 and later

Errors are now consistently handled in eval, regardless of count, or
type of error (semantic or syntax, etc). In older perls a single syntax
error would not trigger $SIG{__DIE__} for instance, nor would it exit
the eval the same way as 10+ errors would. In 5.37.9 all errors are
handled the same, and will trigger $SIG{__DIE__}.
---
 t/152_property_set.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/152_property_set.t b/t/152_property_set.t
index ee94b45..ea35a77 100644
--- a/t/152_property_set.t
+++ b/t/152_property_set.t
@@ -156,7 +156,10 @@ command_is(['property_get', '-n', '%foo'], {
 command_is(['property_set', '-n', '$foo', '--', encode_base64('(aaa')], {
     apperr  => 4,
     code    => 207,
-    message => "syntax error\n",
+    message => ($^V < 5.37.9
+                ? "syntax error\n"
+                : "syntax error at (eval 18)[blib/lib/dbgp-helper/perl5db.pl:192] line 1, at EOF\n" .
+                  "Execution of (eval 18)[blib/lib/dbgp-helper/perl5db.pl:192] aborted due to compilation errors.\n"),
     command => 'property_set',
 });