Fix test warning: Use of uninitialized value

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 33c7d49..c968191 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -774,6 +774,9 @@
 #if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
 #define csighandler            Perl_csighandler
 #endif
+#if !defined(EBCDIC)
+#define _variant_byte_number   S__variant_byte_number
+#endif
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 #define my_chsize(a,b)         Perl_my_chsize(aTHX_ a,b)
 #endif