Blame Text-Balanced-2.06-Fix-undefined-unkpos.patch
|
 |
c689fed |
From 5c87f4b673edad87a64044e7e4d8c3e6776c7c4d Mon Sep 17 00:00:00 2001
|
|
|
c689fed |
From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?=
|
|
|
c689fed |
<michal.josef.spacek@gmail.com>
|
|
|
c689fed |
Date: Thu, 23 Feb 2023 19:12:30 +0100
|
|
|
c689fed |
Subject: [PATCH] Fix undefined $unkpos
|
|
|
c689fed |
|
|
|
c689fed |
RT#146697
|
|
|
c689fed |
---
|
|
|
c689fed |
lib/Text/Balanced.pm | 3 ++-
|
|
|
c689fed |
1 file changed, 2 insertions(+), 1 deletion(-)
|
|
|
c689fed |
|
|
|
c689fed |
diff --git a/lib/Text/Balanced.pm b/lib/Text/Balanced.pm
|
|
|
c689fed |
index 960609c..aa87898 100644
|
|
|
c689fed |
--- a/lib/Text/Balanced.pm
|
|
|
c689fed |
+++ b/lib/Text/Balanced.pm
|
|
|
c689fed |
@@ -1005,7 +1005,8 @@ sub extract_multiple (;$$$$) # ($text, $functions_ref, $max_fields, $ignoreun
|
|
|
c689fed |
{
|
|
|
c689fed |
$unkpos = pos($$textref)-1
|
|
|
c689fed |
unless $igunk || defined $unkpos;
|
|
|
c689fed |
- _update_patvalid($textref, substr $$textref, $unkpos, pos($$textref)-$unkpos);
|
|
|
c689fed |
+ _update_patvalid($textref, substr $$textref, defined $unkpos ? $unkpos : 0,
|
|
|
c689fed |
+ pos($$textref) - (defined $unkpos ? $unkpos : 0));
|
|
|
c689fed |
}
|
|
|
c689fed |
}
|
|
|
c689fed |
|