This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Quadruple float BE test triggering had a typo.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 20 Aug 2014 02:16:54 +0000 (22:16 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 20 Aug 2014 12:20:03 +0000 (08:20 -0400)
t/op/sprintf2.t

index 1833167..4969abf 100644 (file)
@@ -133,7 +133,7 @@ if ($Config{nvsize} == 8 &&
     $Config{nvsize} == 16 &&
     # 9a 99 99 99 99 99 99 99 99 99 99 99 99 99 fb 3f (LE), pack F is the NV
     (pack("F", 0.1) =~ /^\x9A\x99{6}/ ||  # LE
-     pack("F", 0.1) =~ /\x99{6}x9A$/)    # BE
+     pack("F", 0.1) =~ /\x99{6}\x9A$/)    # BE
     ) {
     @hexfloat = (
        [ '%a', '0',       '0x1p-1' ],