From b1ec0722d82db057743015edb358f89acd4a8c2c Mon Sep 17 00:00:00 2001
From: Jean-Damien Durand <jeandamiendurand@free.fr>
Date: Sat, 10 Dec 2022 15:19:05 +0100
Subject: [PATCH] Use $] instead of $^]

---
 File.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/File.pm b/File.pm
index 10c5d2f..dc75918 100755
--- a/File.pm
+++ b/File.pm
@@ -332,7 +332,7 @@ sub GetOsFHandle {
 	}
 	no strict "refs";
 	# The eval "" is necessary in Perl 5.6, avoid it otherwise.
-	my $tied = !defined($^]) || $^] < 5.008
+	my $tied = !defined($]) || $] < 5.008
                        ? eval "tied *{$file}"
                        : tied *{$file};