This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/inc.t: Generalize for EBCDIC
authorKarl Williamson <khw@cpan.org>
Sun, 26 Oct 2014 03:27:54 +0000 (21:27 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:27 +0000 (21:48 -0700)
t/op/inc.t

index a563d70..517fa2d 100644 (file)
@@ -320,9 +320,16 @@ is($_, -1, 'regexp--');
     is($_, 1, 'regexp++');
 }
 
-$_ = v97;
-$_++;
-isnt(ref\$_, 'VSTRING', '++ flattens vstrings');
+if ($::IS_EBCDIC) {
+    $_ = v129;
+    $_++;
+    isnt(ref\$_, 'VSTRING', '++ flattens vstrings');
+}
+else {
+    $_ = v97;
+    $_++;
+    isnt(ref\$_, 'VSTRING', '++ flattens vstrings');
+}
 
 sub TIESCALAR {bless\my $x}
 sub STORE { ++$store::called }