diff options
author | Étienne Mollier <emollier@debian.org> | 2022-05-25 20:39:01 +0200 |
---|---|---|
committer | Étienne Mollier <emollier@debian.org> | 2022-05-25 20:39:01 +0200 |
commit | 4113cb7c30a07856ef8b68608dc5ce5d1ebbbddf (patch) | |
tree | 0dd12ca3e563e317c47e81b6ad83063db96a64b8 | |
parent | 1d3418c3dab80ee0f4177427bfbbdd43dfc7ffca (diff) |
workaround for Barewords issue cropping up when trying to build
Bug: https://rt.cpan.org/Ticket/Display.html?id=142911
Last-Update: 2022-05-25
String::Tagged::Extent as a standalone perl module. This is because
the constant called within the module are not declared when
String::Tagged is not available.
Last-Update: 2022-05-25
Gbp-Pq: Name fix-barewords.patch
-rw-r--r-- | lib/String/Tagged/Extent.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/String/Tagged/Extent.pm b/lib/String/Tagged/Extent.pm index 212dae4..a2b79dd 100644 --- a/lib/String/Tagged/Extent.pm +++ b/lib/String/Tagged/Extent.pm @@ -8,6 +8,9 @@ package String::Tagged::Extent 0.18; use v5.14; use warnings; +use constant FLAG_ANCHOR_BEFORE => 0x01; +use constant FLAG_ANCHOR_AFTER => 0x02; + =head1 NAME C<String::Tagged::Extent> - represents a range within a C<String::Tagged> @@ -79,7 +82,7 @@ methods return extents with this flag defined. sub anchor_before { - shift->[3] & String::Tagged::FLAG_ANCHOR_BEFORE; + shift->[3] & FLAG_ANCHOR_BEFORE; } =head2 anchor_after @@ -93,7 +96,7 @@ return extents with this flag defined. sub anchor_after { - shift->[3] & String::Tagged::FLAG_ANCHOR_AFTER; + shift->[3] & FLAG_ANCHOR_AFTER; } =head2 length |