Don't warn about subsequent use VERSION if it requests the same versi…

…on number
Perl · Mar 4, 2024 · 98ac939 · 98ac939
1 parent bd795a9
commit 98ac939
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/op.c b/op.c
@@ -8036,6 +8036,9 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg)
                 /* if the old version had no side effects, we can allow this
                  * without any warnings or errors */
             }
+            else if (shortver == PL_prevailing_version) {
+                /* requesting the same version again is fine */
+            }
             else if (shortver >= SHORTVER(5, 39)) {
                 croak("use VERSION of 5.39 or above is not permitted while another use VERSION is in scope");
             }

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
@@ -2178,5 +2178,5 @@ use VERSION while another use VERSION is in scope is deprecated, and will become
 use warnings;
 use v5.12;
 use v5.12;
+# expect no warning because same version
 EXPECT
-use VERSION while another use VERSION is in scope is deprecated, and will become fatal in Perl 5.46 at - line 3.