From: Ailin Nemui <redacted>
Date: Sun, 25 Jan 2026 13:23:50 +0000 (+0100)
Subject: [perlalias] update for Perl 5.38
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=4aed0a88f0e19ff36469feee5f91056213b72010;p=irssi-scripts.irssi.org.git

[perlalias] update for Perl 5.38

PADNAMEt was renamed to PADNAMEf
---

diff --git a/scripts/perlalias.pl b/scripts/perlalias.pl
index 1d1c712..6c0577e 100644
--- a/scripts/perlalias.pl
+++ b/scripts/perlalias.pl
@@ -128,10 +128,16 @@ use Irssi::Irc;
 use Carp ();
 
 use B ();
+BEGIN {
+    unless (defined &B::PADNAMEf_OUR) {
+	no strict 'refs';
+	*{"B::".s.t.f.r} = *{"B::$_"} for grep /^PADNAME._/, keys %B::
+    }
+}
 
 { package Irssi::Nick; } # Keeps trying to look for this package but for some reason it doesn't get loaded.
 
-our $VERSION = '2.0.1';
+our $VERSION = '2.0.2';
 our %IRSSI = (
 	authors => 'aquanight',
 	contact => 'aquanight@gmail.com',
@@ -840,11 +846,11 @@ sub collect_shared_variables {
 			unless ($op->private & B::OPpLVAL_INTRO) {
 				op_die "Can't share variable '$name' because of its previous life (are you missing a 'state'?)";
 			}
-			if ($pname->FLAGS & B::PADNAMEt_OUR) {
+			if ($pname->FLAGS & B::PADNAMEf_OUR) {
 				# Sanity check mostly. 'our' variables will look like a global in the optree
 				op_die "Can't share 'our' variable '$name'";
 			}
-			unless ($pname->FLAGS & B::PADNAMEt_STATE) {
+			unless ($pname->FLAGS & B::PADNAMEf_STATE) {
 				op_die "Can't share 'my' variable '$name'";
 			}
 			# It's a properly declared state variable, return the name and reference.
@@ -898,7 +904,7 @@ sub collect_shared_variables {
 			my $pname = padname $svix;
 			my $name = $pname->PVX;
 			# Sanity check:
-			if (($pname->FLAGS & (B::PADNAMEt_OUR | B::PADNAMEt_STATE)) != B::PADNAMEt_STATE) {
+			if (($pname->FLAGS & (B::PADNAMEf_OUR | B::PADNAMEf_STATE)) != B::PADNAMEf_STATE) {
 				op_die "Unexpected non-state variable"; ##### assert
 			}
 			my $ref = $pad->ARRAYelt($svix)->object_2svref;