The change #20809 opened up a code path that might leave s unset.

[perl5.git] / bytecode.pl

diff --git a/bytecode.pl b/bytecode.pl
index 73accab..bfe7502 100644 (file)
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -4,8 +4,8 @@ BEGIN {
 }
 use strict;
 my %alias_to = (
-    U32 => [qw(STRLEN line_t)],
-    I32 => [qw(SSize_t long)],
+    U32 => [qw(line_t)],
+    PADOFFSET => [qw(STRLEN SSize_t)],
     U16 => [qw(OPCODE short)],
     U8  => [qw(char)],
 );