This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/bop.t: Fix test failing on EBCDIC
[perl5.git] / t / op / bop.t
index dd5b5ef..594dd09 100644 (file)
@@ -681,4 +681,5 @@ is $byte, "\0", "utf8 &. appends null byte";
 
 # only visible under sanitize
 fresh_perl_is('$x = "UUUUUUUV"; $y = "xxxxxxx"; $x |= $y; print $x',
-              '}}}}}}}V', {}, "[perl #129995] access to freed memory");
+              ( $::IS_EBCDIC) ? 'XXXXXXXV' : '}}}}}}}V',
+              {}, "[perl #129995] access to freed memory");