commit e0918c0b7cb6f36d6784e6a30f06c43996a47eec
author Nicholas Wilson <nicholas@nicholaswilson.me.uk> Fri May 16 14:01:49 2025 +0100
committer GitHub <noreply@github.com> Mon Jun 02 08:17:41 2025 +0000
tree fa5dd3f89aae672aaddd2cff9a8b6a28ba046b1c
parent abc24458b8c6bb7c02cc7b4d24f78ee0128b1620

XXX temp changes to perltest

perltest.sh

diff --git a/perltest.sh b/perltest.sh
index 65031ce..36c7c01 100755
--- a/perltest.sh
+++ b/perltest.sh
@@ -370,7 +370,14 @@
   eval "\$_ =~ ${pattern}";
   if ($@)
     {
-    printf $outfile "Error: $@";
+    if ($@ =~ /marked by <-- HERE in m\/(.*?) <-- HERE/s)
+      {
+      printf $outfile "Failed: error XXX at offset %d: XXX\n", length($1);
+      }
+    else
+      {
+      printf $outfile "Error: $@";
+      }
     if (! $interact)
       {
       for (;;)
@@ -378,6 +385,7 @@
         last if ! ($_ = <$infile>);
         last if $_ =~ /^\s*$/;
         }
+      printf $outfile "$_";
       }
     next NEXT_RE;
     }