From 233cb0f2812c4f71b4fecd4058dbf34fe8d6824d Mon Sep 17 00:00:00 2001 From: mauke Date: Sat, 17 Aug 2024 10:04:28 +0200 Subject: [PATCH] Fix precedence error (! vs =~) `!! $name =~ m/^_/` is parsed as `(!!$name) =~ m/^_/`, not the intended `!! ($name =~ m/^_/)`. Bug-Debian: https://bugs.debian.org/1113883 --- lib/Net/Amazon/S3/Request/Role/HTTP/Header.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Net/Amazon/S3/Request/Role/HTTP/Header.pm b/lib/Net/Amazon/S3/Request/Role/HTTP/Header.pm index 54c551ed..6c21f0b7 100644 --- a/lib/Net/Amazon/S3/Request/Role/HTTP/Header.pm +++ b/lib/Net/Amazon/S3/Request/Role/HTTP/Header.pm @@ -42,7 +42,7 @@ role { has $name => ( is => 'ro', isa => $params->constraint, - (init_arg => undef) x!! $name =~ m/^_/, + (init_arg => undef) x!! ($name =~ m/^_/), required => $params->required, (default => $params->default) x!! defined $params->default, ); -- 2.51.0